silence CGI.pm warnings

plack · Oct 23, 2014 · 4b9480b · 4b9480b
1 parent eb07149
commit 4b9480b
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/t/Plack-Middleware/cgi-bin/hello.cgi b/t/Plack-Middleware/cgi-bin/hello.cgi
@@ -1,4 +1,4 @@
 #!/usr/bin/perl
 use CGI;
 my $q = CGI->new;
-print $q->header, "Hello ", $q->param('name'), " counter=", ++$COUNTER;
+print $q->header, "Hello ", scalar $q->param('name'), " counter=", ++$COUNTER;
diff --git a/t/Plack-Middleware/cgi-bin/hello2.cgi b/t/Plack-Middleware/cgi-bin/hello2.cgi
@@ -1,4 +1,4 @@
 #!/usr/bin/perl
 use CGI;
 my $q = CGI->new;
-print $q->header, "Hello ", $q->param('name'), " counter=", ++$COUNTER;
+print $q->header, "Hello ", scalar $q->param('name'), " counter=", ++$COUNTER;
diff --git a/t/Plack-Middleware/wrapcgi_exec.t b/t/Plack-Middleware/wrapcgi_exec.t
@@ -15,7 +15,7 @@ plan skip_all => $^O if $^O eq "MSWin32";
 #!$^X
 use CGI;
 my \$q = CGI->new;
-print \$q->header, "Hello ", \$q->param('name'), " counter=", ++\$COUNTER;
+print \$q->header, "Hello ", scalar \$q->param('name'), " counter=", ++\$COUNTER;
 ...
     close $tmp;