r55830 - in /trunk/libtest-www-mechanize-perl/debian: changelog control patches/ patches/cgi.patch patches/series

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Fri Apr  9 18:41:37 2010
New Revision: 55830

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55830
Log:
Add patch cgi.patch for compatibility with newer versions of CGI.pm;
thanks for Niko Tyni for the bug report and the patch (closes: #577090).

Added:
    trunk/libtest-www-mechanize-perl/debian/patches/
    trunk/libtest-www-mechanize-perl/debian/patches/cgi.patch
    trunk/libtest-www-mechanize-perl/debian/patches/series
Modified:
    trunk/libtest-www-mechanize-perl/debian/changelog
    trunk/libtest-www-mechanize-perl/debian/control

Modified: trunk/libtest-www-mechanize-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-perl/debian/changelog?rev=55830&op=diff
==============================================================================
--- trunk/libtest-www-mechanize-perl/debian/changelog (original)
+++ trunk/libtest-www-mechanize-perl/debian/changelog Fri Apr  9 18:41:37 2010
@@ -1,3 +1,10 @@
+libtest-www-mechanize-perl (1.26-2) UNRELEASED; urgency=low
+
+  * Add patch cgi.patch for compatibility with newer versions of CGI.pm;
+    thanks for Niko Tyni for the bug report and the patch (closes: #577090).
+
+ -- gregor herrmann <gregoa at debian.org>  Fri, 09 Apr 2010 20:33:18 +0200
+
 libtest-www-mechanize-perl (1.26-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libtest-www-mechanize-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-perl/debian/control?rev=55830&op=diff
==============================================================================
--- trunk/libtest-www-mechanize-perl/debian/control (original)
+++ trunk/libtest-www-mechanize-perl/debian/control Fri Apr  9 18:41:37 2010
@@ -6,6 +6,8 @@
  libhttp-server-simple-perl, libcarp-assert-more-perl, liburi-perl,
  libwww-mechanize-perl (>= 1.24), netbase, libtest-pod-perl,
  libtest-pod-coverage-perl, libhtml-lint-perl
+# for testing with newer CGI.pm
+# , libcgi-pm-perl (>= 3.49)
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Krzysztof Krzyzaniak (eloy) <eloy at debian.org>,
  gregor herrmann <gregoa at debian.org>, Jonathan Yu <jawnsy at cpan.org>,

Added: trunk/libtest-www-mechanize-perl/debian/patches/cgi.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-perl/debian/patches/cgi.patch?rev=55830&op=file
==============================================================================
--- trunk/libtest-www-mechanize-perl/debian/patches/cgi.patch (added)
+++ trunk/libtest-www-mechanize-perl/debian/patches/cgi.patch Fri Apr  9 18:41:37 2010
@@ -1,0 +1,52 @@
+From 25a972999154e371b07d7788e9ec1f4c437e3897 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Thu, 8 Apr 2010 23:51:35 +0300
+Subject: [PATCH] Fix WWW::Mechanize->put() parameter passing.
+
+Not using the 'content' hash key resulted in a missing
+Content-Length header, making t/put_ok.t fail on CGI.pm >= 3.44.
+---
+ Mechanize.pm |    3 ++-
+ t/put_ok.t   |    5 ++---
+ 2 files changed, 4 insertions(+), 4 deletions(-)
+
+--- a/Mechanize.pm
++++ b/Mechanize.pm
+@@ -262,7 +262,8 @@ sub put_ok {
+     my $self = shift;
+ 
+     my ($url,$desc,%opts) = $self->_unpack_args( 'PUT', @_ );
+-    $self->put( $url, \%opts );
++    $opts{content} = '' if !exists $opts{content};
++    $self->put( $url, %opts );
+ 
+     my $ok = $self->success;
+     $Test->ok( $ok, $desc );
+--- a/t/put_ok.t
++++ b/t/put_ok.t
+@@ -24,7 +24,6 @@ my $server      = TestServer->new;
+ my $pid         = $server->background;
+ my $server_root = $server->root;
+ 
+-diag( 'Any help in squashing the warnings in this test would be appreciated' );
+ my $mech = Test::WWW::Mechanize->new( autocheck => 0 );
+ isa_ok($mech,'Test::WWW::Mechanize');
+ 
+@@ -32,7 +31,7 @@ my $text = 'This is what we are putting'
+ GOOD_PUT: {
+     my $goodlinks = "$server_root/goodlinks.html";
+ 
+-    $mech->put($goodlinks, $text);
++    $mech->put($goodlinks, content => $text);
+     ok($mech->success, 'sanity check: we can load goodlinks.html');
+ 
+     test_out('ok 1 - Try to PUT goodlinks.html');
+@@ -49,7 +48,7 @@ GOOD_PUT: {
+ 
+ BAD_PUT: {
+     my $badurl = 'http://wango.nonexistent.xx-only-testing/';
+-    $mech->put($badurl, $text);
++    $mech->put($badurl, content => $text);
+     ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html});
+ 
+     test_out( 'not ok 1 - Try to PUT bad URL' );

Added: trunk/libtest-www-mechanize-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-www-mechanize-perl/debian/patches/series?rev=55830&op=file
==============================================================================
--- trunk/libtest-www-mechanize-perl/debian/patches/series (added)
+++ trunk/libtest-www-mechanize-perl/debian/patches/series Fri Apr  9 18:41:37 2010
@@ -1,0 +1,1 @@
+cgi.patch