X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d74347f965b920e837d28ae0d7c78135a2f447a3..16f91f23cf017fab7e536a6f4b030cbbe0fb95c3:/SL/Auth.pm

diff --git a/SL/Auth.pm b/SL/Auth.pm
index b1e4b25e9..76414e877 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -730,7 +730,7 @@ sub create_unique_sesion_value {
   my $key                   = "$$-" . ($now[0] * 1000000 + $now[1]) . "-";
   $self->{unique_counter} ||= 0;
 
-  $self->{unique_counter}++ while exists $self->{SESSION}->{$key . $self->{unique_counter}};
+  $self->{unique_counter}++ while exists $self->{SESSION}->{$key . ($self->{unique_counter} + 1)};
   $self->{unique_counter}++;
 
   $value  = { expiration => $params{expiration} ? ($now[0] + $params{expiration}) * 1000000 + $now[1] : undef,