Lines 80-85
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 |
no warnings 'redefine'; |
85 |
no warnings 'redefine'; |
85 |
*CGI::multi_param = \&CGI::param; |
86 |
*CGI::multi_param = \&CGI::param; |
86 |
- |
|
|