|
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 |
- |
|
|