From 5288629abec119dec807f9d849b3893a0a04a9df Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Fri, 9 Jun 2017 13:19:13 -0400 Subject: [PATCH] Bug 18771: CGI.pm: Subroutine multi_param redefined TEST PLAN --------- Follow the test plan on the first patch. Notice that with both patches applied, it is just a require CGI; and comment added. --- C4/Context.pm | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/C4/Context.pm b/C4/Context.pm index 5e3f828..1aa08be 100644 --- a/C4/Context.pm +++ b/C4/Context.pm @@ -80,18 +80,13 @@ BEGIN { # Redefine multi_param if cgi version is < 4.08 # Remove the "CGI::param called in list context" warning in this case + require CGI; # Can't check version without the require. if (!defined($CGI::VERSION) || $CGI::VERSION < 4.08) { - print STDERR "Low version\n"; - require CGI; # Can't check version without the require. - print STDERR "Is actually: $CGI::VERSION\n"; no warnings 'redefine'; *CGI::multi_param = \&CGI::param; use warnings 'redefine'; $CGI::LIST_CONTEXT_WARN = 0; } - else { - print STDERR "Okay version\n"; - } } # else there is no browser to send fatals to! } -- 2.1.4