@@ -, +, @@ C4/Context.pm --- C4/Context.pm | 8 ++++---- C4/Search.pm | 1 + 2 files changed, 5 insertions(+), 4 deletions(-) --- a/C4/Context.pm +++ a/C4/Context.pm @@ -36,12 +36,8 @@ BEGIN { }; use Carp qw( carp ); -use DateTime::TimeZone; use Encode; use File::Spec; -use POSIX; -use YAML::XS; -use ZOOM; use List::MoreUtils qw(any); use Koha::Caches; @@ -342,6 +338,7 @@ the value cannot be properly decoded as YAML. sub yaml_preference { my ( $self, $preference ) = @_; + require YAML::XS; my $yaml = eval { YAML::XS::Load( Encode::encode_utf8( $self->preference( $preference ) ) ); }; if ($@) { warn "Unable to parse $preference syspref : $@"; @@ -607,6 +604,7 @@ sub _new_Zconn { my $user = $serverinfo->{user}; my $password = $serverinfo->{password}; eval { + require ZOOM; # set options my $o = ZOOM::Options->new(); $o->option(user => $user) if $user && $password; @@ -873,6 +871,7 @@ sub get_versions { my ( %versions, $mysqlVersion ); $versions{kohaVersion} = Koha::version(); $versions{kohaDbVersion} = C4::Context->preference('version'); + require POSIX; $versions{osVersion} = join(" ", POSIX::uname()); $versions{perlVersion} = $]; @@ -904,6 +903,7 @@ sub tz { my $self = shift; if (!defined $context->{tz}) { my $timezone = $context->{config}->timezone; + require DateTime::TimeZone; $context->{tz} = DateTime::TimeZone->new(name => $timezone); } return $context->{tz}; --- a/C4/Search.pm +++ a/C4/Search.pm @@ -39,6 +39,7 @@ use URI::Escape; use Business::ISBN; use MARC::Record; use MARC::Field; +use ZOOM; our (@ISA, @EXPORT_OK); BEGIN { --