CGI.pm: Cope with corrupted cookie headers.

diff --git a/ucw/perl/CGI.pm b/ucw/perl/CGI.pm
index 7389511a1d53f1868ab8f39b000bb71f879fad63..8e4096e69a6f61ef29b3501314464de390a84530 100644 (file)
--- a/ucw/perl/CGI.pm
+++ b/ucw/perl/CGI.pm
@@ -459,7 +459,8 @@ sub parse_cookies() {
        my @cook = ();
        foreach my $x (split /;\s*/, $h) {
                my ($k,$v) = split /=/, $x;
-               push @cook, $k => url_deescape($v);
+               $v = url_deescape($v) if defined $v;
+               push @cook, $k => $v;
        }
        return @cook;
 }