Bug 12041: UT - Get rid of warnings

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

diff --git a/Koha/Cache.pm b/Koha/Cache.pm
index 358a9a4..1638324 100644 (file)
--- a/Koha/Cache.pm
+++ b/Koha/Cache.pm
@@ -455,7 +455,7 @@ sub _set_tied_defaults {
 
     $args->{'timeout'}   = '600' unless defined( $args->{'timeout'} );
     $args->{'inprocess'} = '0'   unless defined( $args->{'inprocess'} );
-    unless ( lc( $args->{'cache_type'} ) eq 'null' ) {
+    unless ( $args->{cache_type} and lc( $args->{cache_type} ) eq 'null' ) {
         $args->{'cache'} = $self;
         $args->{'cache_type'} ||= $ENV{'CACHING_SYSTEM'};
     }