|
Lines 76-81
BEGIN {
Link Here
|
| 76 |
if ($ENV{KOHA_BACKTRACES}) { |
76 |
if ($ENV{KOHA_BACKTRACES}) { |
| 77 |
$main::SIG{__DIE__} = \&CGI::Carp::confess; |
77 |
$main::SIG{__DIE__} = \&CGI::Carp::confess; |
| 78 |
} |
78 |
} |
|
|
79 |
|
| 80 |
# Redefine multi_param if cgi version is < 4.08 |
| 81 |
# Remove the "CGI::param called in list context" warning in this case |
| 82 |
if (!defined($CGI::VERSION) || $CGI::VERSION < 4.08) { |
| 83 |
no warnings 'redefine'; |
| 84 |
*CGI::multi_param = \&CGI::param; |
| 85 |
use warnings 'redefine'; |
| 86 |
$CGI::LIST_CONTEXT_WARN = 0; |
| 87 |
} |
| 79 |
} # else there is no browser to send fatals to! |
88 |
} # else there is no browser to send fatals to! |
| 80 |
|
89 |
|
| 81 |
# Check if there are memcached servers set |
90 |
# Check if there are memcached servers set |
| 82 |
- |
|
|