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

(-)a/C4/Context.pm (-7 / +1 lines)
Lines 80-97 BEGIN { Link Here
80
80
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
        require CGI; # Can't check version without the require.
83
        if (!defined($CGI::VERSION) || $CGI::VERSION < 4.08) {
84
        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";
87
            no warnings 'redefine';
85
            no warnings 'redefine';
88
            *CGI::multi_param = \&CGI::param;
86
            *CGI::multi_param = \&CGI::param;
89
            use warnings 'redefine';
87
            use warnings 'redefine';
90
            $CGI::LIST_CONTEXT_WARN = 0;
88
            $CGI::LIST_CONTEXT_WARN = 0;
91
        }
89
        }
92
        else {
93
            print STDERR "Okay version\n";
94
        }
95
    }  	# else there is no browser to send fatals to!
90
    }  	# else there is no browser to send fatals to!
96
}
91
}
97
92
98
- 

Return to bug 18771