From 16f91f23cf017fab7e536a6f4b030cbbe0fb95c3 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Tue, 17 May 2011 13:52:35 +0200 Subject: [PATCH] =?utf8?q?create=5Funique=5Fsession=5Fvalue=20hat=20immer?= =?utf8?q?=20falsch=20auf=20Eindeutigkeit=20der=20Nummer=20gepr=C3=BCft?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/Auth.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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, -- 2.20.1