[libcgi-application-server-perl] 02/04: Fix warnings in the test suite with newer CGI.pm versions. (Closes: #783405)

[Niko Tyni]

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

ntyni pushed a commit to branch master
in repository libcgi-application-server-perl.

commit fa7e406375e96bb4700d0b287311353d5146245f
Author: Niko Tyni <ntyni at debian.org>
Date:   Sun May 17 15:29:09 2015 +0300

    Fix warnings in the test suite with newer CGI.pm versions. (Closes: #783405)
---
 debian/patches/series                |  1 +
 debian/patches/silence-test-warnings | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..6426730
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+silence-test-warnings
diff --git a/debian/patches/silence-test-warnings b/debian/patches/silence-test-warnings
new file mode 100644
index 0000000..9dd0c08
--- /dev/null
+++ b/debian/patches/silence-test-warnings
@@ -0,0 +1,18 @@
+Silence test warnings with newer CGI.pm versions
+
+This fixes warnings like
+  CGI::param called in list context from package ReplaceQueryObject line 14, this can lead to vulnerabilities. See the warning in "Fetching the value or values of a single named parameter" at /usr/share/perl5/CGI.pm line 436, <DATA> line 16.
+
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=104176
+Bug-Debian: https://bugs.debian.org/783405
+--- libcgi-application-server-perl.orig/t/lib/ReplaceQueryObject.pm
++++ libcgi-application-server-perl/t/lib/ReplaceQueryObject.pm
+@@ -12,7 +12,7 @@
+     my ($self) = @_;
+     my $q = $self->query;
+     return join "\n",
+-        $q->start_html($q->param('text')) .
++        $q->start_html(scalar $q->param('text')) .
+         $q->end_html
+     ;
+ }

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