Bug 121419 - If multiple cookies exist, the least significant is assigned.

2xr = bbaetz Also fixes Duplicate Bug 165685 When switching from no cookiepath to using cookiepath, old cookie gets in the way

Bug 121419 - If multiple cookies exist, the least significant is assigned.
5ac32582 · bugreport%peshkin.net · aefeff9d · 5ac32582
Commit 5ac32582 authored Aug 31, 2002 by bugreport%peshkin.net
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

CGI.pl CGI.pl +3 -1

No files found.
--- a/CGI.pl
+++ b/CGI.pl
@@ -1064,7 +1064,9 @@ if (defined $ENV{"HTTP_COOKIE"}) {
    foreach my $pair (split(/;/, $ENV{"HTTP_COOKIE"})) {
        $pair = trim($pair);
        if ($pair =~ /^([^=]*)=(.*)$/) {
-            $::COOKIE{$1} = $2;
+            if (!exists($::COOKIE{$1})) {
+                $::COOKIE{$1} = $2;
+            }
        } else {
            $::COOKIE{$pair} = "";
        }