View | Details | Raw Unified | Return to bug 18771
Collapse All | Expand All

(-)a/C4/Context.pm (-1 / +6 lines)
Lines 81-91 BEGIN { Link Here
81
        # Redefine multi_param if cgi version is < 4.08
81
        # Redefine multi_param if cgi version is < 4.08
82
        # Remove the "CGI::param called in list context" warning in this case
82
        # Remove the "CGI::param called in list context" warning in this case
83
        if (!defined($CGI::VERSION) || $CGI::VERSION < 4.08) {
83
        if (!defined($CGI::VERSION) || $CGI::VERSION < 4.08) {
84
            print STDERR "Low version\n";
85
            require CGI; # Can't check version without the require.
86
            print STDERR "Is actually: $CGI::VERSION\n";
84
            no warnings 'redefine';
87
            no warnings 'redefine';
85
            *CGI::multi_param = \&CGI::param;
88
            *CGI::multi_param = \&CGI::param;
86
            use warnings 'redefine';
89
            use warnings 'redefine';
87
            $CGI::LIST_CONTEXT_WARN = 0;
90
            $CGI::LIST_CONTEXT_WARN = 0;
88
        }
91
        }
92
        else {
93
            print STDERR "Okay version\n";
94
        }
89
    }  	# else there is no browser to send fatals to!
95
    }  	# else there is no browser to send fatals to!
90
}
96
}
91
97
92
- 

Return to bug 18771