link-checker commit: CGI::Cookie->new require the -value parameter

changeset:   418:a0321dce6900
tag:         tip
user:        Denis Ah-Kang <denis@w3.org>
date:        Wed May 27 09:12:53 2015 +0400
files:       bin/checklink
description:
CGI::Cookie->new require the -value parameter


diff -r cc570477516e -r a0321dce6900 bin/checklink
--- a/bin/checklink	Thu Mar 26 16:58:24 2015 +0100
+++ b/bin/checklink	Wed May 27 09:12:53 2015 +0400
@@ -619,14 +619,14 @@
         if ($action eq 'clear') {
 
             # Clear the cookie.
-            $cookie = CGI::Cookie->new(-name => $PROGRAM);
+            $cookie = CGI::Cookie->new(-name => $PROGRAM,-value => $PROGRAM);
             $cookie->value({clear => 1});
             $cookie->expires('-1M');
         }
         elsif ($action eq 'set') {
 
             # Set the options.
-            $cookie = CGI::Cookie->new(-name => $PROGRAM);
+            $cookie = CGI::Cookie->new(-name => $PROGRAM,-value => $PROGRAM);
             my %options = $query->Vars();
             delete($options{$_})
                 for qw(url uri check cookie);    # Non-persistent.

Received on Wednesday, 27 May 2015 05:38:25 UTC