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