|
Lines 22-28
use Modern::Perl;
Link Here
|
| 22 |
use vars qw($AUTOLOAD $context); |
22 |
use vars qw($AUTOLOAD $context); |
| 23 |
|
23 |
|
| 24 |
BEGIN { |
24 |
BEGIN { |
| 25 |
if ( $ENV{'HTTP_USER_AGENT'} ) { # Only hit when plack is not enabled |
25 |
# Calling get_enabled_plugins here esnures that all plugin |
|
|
26 |
# modules are loaded before use and will not trigger |
| 27 |
# a database connection reset |
| 28 |
Koha::Plugins->get_enabled_plugins(); |
| 29 |
|
| 30 |
if ( $ENV{'HTTP_USER_AGENT'} ) { # Only hit when plack is not enabled |
| 26 |
|
31 |
|
| 27 |
# Redefine multi_param if cgi version is < 4.08 |
32 |
# Redefine multi_param if cgi version is < 4.08 |
| 28 |
# Remove the "CGI::param called in list context" warning in this case |
33 |
# Remove the "CGI::param called in list context" warning in this case |