SL::DB: Eine Warning unterdrücken

diff --git a/SL/DB.pm b/SL/DB.pm
index 55428615ff2bcef8483914622349ac90ddb944ee..861fe6a52835bf8882e4e1185d6c4617c79878c0 100644 (file)
--- a/SL/DB.pm
+++ b/SL/DB.pm
@@ -67,7 +67,8 @@ sub _register_db {
   } else {
     my $european_dates = 0;
     if ($::myconfig{dateformat}) {
   } else {
     my $european_dates = 0;
     if ($::myconfig{dateformat}) {

-      $european_dates = 1 if $_dateformats{ $::myconfig{dateformat} } =~ m/european/i;
+      $european_dates = 1 if $_dateformats{ $::myconfig{dateformat} }
+                          && $_dateformats{ $::myconfig{dateformat} } =~ m/european/i;

     }
 
     %connect_settings = ( driver          => $::myconfig{dbdriver} || 'Pg',
     }
 
     %connect_settings = ( driver          => $::myconfig{dbdriver} || 'Pg',