r36453 - in /trunk/libwww-mechanize-twiki-perl: Changes META.yml README debian/changelog lib/WWW/Mechanize/TWiki.pm
myon at users.alioth.debian.org
myon at users.alioth.debian.org
Tue May 26 11:32:24 UTC 2009
Author: myon
Date: Tue May 26 11:32:20 2009
New Revision: 36453
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=36453
Log:
New upstream release.
Modified:
trunk/libwww-mechanize-twiki-perl/Changes
trunk/libwww-mechanize-twiki-perl/META.yml
trunk/libwww-mechanize-twiki-perl/README
trunk/libwww-mechanize-twiki-perl/debian/changelog
trunk/libwww-mechanize-twiki-perl/lib/WWW/Mechanize/TWiki.pm
Modified: trunk/libwww-mechanize-twiki-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-twiki-perl/Changes?rev=36453&op=diff
==============================================================================
--- trunk/libwww-mechanize-twiki-perl/Changes (original)
+++ trunk/libwww-mechanize-twiki-perl/Changes Tue May 26 11:32:20 2009
@@ -1,4 +1,8 @@
Revision history for Perl extension WWW::Mechanize::TWiki
+
+0.12
+ - cgibin() returns correct information <http://rt.cpan.org/Public/Bug/Display.html?id=31689>
+ - 4 argument form of credentials no long supported by WWW::Mechanize <http://rt.cpan.org/Public/Bug/Display.html?id=31688>
0.11 Sun Apr 24 17:35 2006
- expanded and clarified docs
Modified: trunk/libwww-mechanize-twiki-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-twiki-perl/META.yml?rev=36453&op=diff
==============================================================================
--- trunk/libwww-mechanize-twiki-perl/META.yml (original)
+++ trunk/libwww-mechanize-twiki-perl/META.yml Tue May 26 11:32:20 2009
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: WWW-Mechanize-TWiki
-version: 0.11
+version: 0.12
version_from: lib/WWW/Mechanize/TWiki.pm
installdirs: site
requires:
Modified: trunk/libwww-mechanize-twiki-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-twiki-perl/README?rev=36453&op=diff
==============================================================================
--- trunk/libwww-mechanize-twiki-perl/README (original)
+++ trunk/libwww-mechanize-twiki-perl/README Tue May 26 11:32:20 2009
@@ -1,4 +1,4 @@
-WWW-Mechanize-TWiki version 0.01
+WWW-Mechanize-TWiki version 0.12
================================
The README is used to introduce the module and provide instructions on
@@ -31,7 +31,7 @@
Put the correct copyright and licence information here.
-Copyright (C) 2004 by Will Norris
+Copyright (C) 2004,2005,2006,2008 by Will Norris <wbniv at cpan.org>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
Modified: trunk/libwww-mechanize-twiki-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-twiki-perl/debian/changelog?rev=36453&op=diff
==============================================================================
--- trunk/libwww-mechanize-twiki-perl/debian/changelog (original)
+++ trunk/libwww-mechanize-twiki-perl/debian/changelog Tue May 26 11:32:20 2009
@@ -1,8 +1,9 @@
-libwww-mechanize-twiki-perl (0.11-2) unstable; urgency=low
+libwww-mechanize-twiki-perl (0.12-1) unstable; urgency=low
* Set Maintainer to Debian Perl Group.
+ * New upstream release.
- -- Christoph Berg <myon at debian.org> Tue, 26 May 2009 13:29:13 +0200
+ -- Christoph Berg <myon at debian.org> Tue, 26 May 2009 13:31:34 +0200
libwww-mechanize-twiki-perl (0.11-1) unstable; urgency=low
Modified: trunk/libwww-mechanize-twiki-perl/lib/WWW/Mechanize/TWiki.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-twiki-perl/lib/WWW/Mechanize/TWiki.pm?rev=36453&op=diff
==============================================================================
--- trunk/libwww-mechanize-twiki-perl/lib/WWW/Mechanize/TWiki.pm (original)
+++ trunk/libwww-mechanize-twiki-perl/lib/WWW/Mechanize/TWiki.pm Tue May 26 11:32:20 2009
@@ -10,7 +10,7 @@
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();
-our $VERSION = '0.11';
+our $VERSION = '0.12';
use WWW::Mechanize;
use HTML::TableExtract;
@@ -31,8 +31,14 @@
my $self = shift;
my @credentials = @_;
+ if ( @credentials == 4 ) {
+ # http://rt.cpan.org/Public/Bug/Display.html?id=31688
+ # 4 argument form no longer supprted by WWW::Mechanize
+ shift @credentials, shift @credentials;
+ }
+
$self->SUPER::credentials( $self->{cgibin}, '', @credentials );
- $self->add_header( Authorization => 'Basic ' . MIME::Base64::encode( $credentials[2] . ':' . $credentials[3] ) );
+ $self->add_header( Authorization => 'Basic ' . MIME::Base64::encode( $credentials[0] . ':' . $credentials[1] ) );
}
################################################################################
@@ -46,7 +52,7 @@
$self->{cgibin} = $cgibin;
$self->{scriptSuffix} = $opts->{scriptSuffix} || '';
- return $self;
+ return $self->{cgibin};
}
################################################################################
@@ -82,7 +88,8 @@
%{$overrides}, # overrides these defaults
} );
- my $topic = $xxx->content();
+ warn "search: [", Dumper($xxx), "]\n";
+ my $topic = $xxx->content();
$topic =~ s|^.+?$tagStartTopics||s; # strip up to start tag
$topic =~ s|<p />.+?$||s; # strip after formatted output
More information about the Pkg-perl-cvs-commits
mailing list