[libcgi-application-plugin-stream-perl] 01/04: Add patch from Niko Tyni to fix test failure with Perl 5.18.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libcgi-application-plugin-stream-perl.

commit 1142e487f3a0eba62d303e32ced56d200184cf7a
Author: gregor herrmann <gregoa at debian.org>
Date:   Tue Aug 13 20:07:32 2013 +0200

    Add patch from Niko Tyni to fix test failure with Perl 5.18.
    
    Closes: #709680
---
 ...failure-due-triggered-by-hash-randomizati.patch |   43 ++++++++++++++++++++
 debian/patches/series                              |    1 +
 2 files changed, 44 insertions(+)

diff --git a/debian/patches/0001-Fix-a-test-failure-due-triggered-by-hash-randomizati.patch b/debian/patches/0001-Fix-a-test-failure-due-triggered-by-hash-randomizati.patch
new file mode 100644
index 0000000..d4a83c8
--- /dev/null
+++ b/debian/patches/0001-Fix-a-test-failure-due-triggered-by-hash-randomizati.patch
@@ -0,0 +1,43 @@
+Origin: vendor
+Bug-Debian: http://bugs.debian.org/709680
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=81646
+Last-Update: 2013-08-13
+
+From 033197cf2fb313209711a25cef2e15ae74c5b7ff Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Tue, 13 Aug 2013 16:05:10 +0000
+Subject: [PATCH] Fix a test failure due triggered by hash randomization
+ changes in Perl 5.17.6
+
+Quoting the CGI.pm documentation for the header() method:
+
+  Each argument name is preceded by a dash.  Neither case nor order
+  matters in the argument list.  -type, -Type, and -TYPE are all
+  acceptable.  In fact, only the first argument needs to begin with
+  a dash.  If a dash is present in the first argument, CGI.pm assumes
+  dashes for the subsequent ones.
+
+The stream_file() method in CGI::Application::Plugin::Stream uses this
+method, and when 'Content_length' happens to be the first key in the
+argument hash, it is erroneously interpreted as the document type,
+not as the name of the tag.
+---
+ t/basic.t | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/t/basic.t b/t/basic.t
+index 3cb0f2e..e2c37f0 100644
+--- a/t/basic.t
++++ b/t/basic.t
+@@ -60,7 +60,7 @@ like($content_sent, qr/Content-Length: 29/i,$test_name);
+ 
+ $test_name = 'Setting a custom Content-Length';
+ $app = StreamTest->new();
+-$app->header_props(Content_Length => 1 );
++$app->header_props(-Content_Length => 1 );
+ $app->with_fh();
+ $content_sent = $stdout->read;
+ like($content_sent, qr/Content-Length: 1/i,$test_name);
+-- 
+1.8.4.rc2
+
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..e26771c
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+0001-Fix-a-test-failure-due-triggered-by-hash-randomizati.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcgi-application-plugin-stream-perl.git