Warnung wenn kein cookie übergeben wurde

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 7ca8d0b..37586b8 100644 (file)
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -512,7 +512,7 @@ sub restore_session {
   my $self = shift;
 
   $session_id        =  $::request->{cgi}->cookie($self->get_session_cookie_name());
-  $session_id        =~ s|[^0-9a-f]||g;
+  $session_id        =~ s|[^0-9a-f]||g if $session_id;
 
   $self->{SESSION}   = { };