Fixes Long number not separated with underscores reported by Kritika

Author: pludlamCVL

lib/HTTP/Cookies/Microsoft.pm

@@ -224,7 +224,7 @@ sub load
 
                 # set the delayload cookie for this domain with
                 # the cookie_file as cookie for later-loading info
-                $self->set_cookie(undef, 'cookie', $cookie_file, '//+delayload', $domain, undef, 0, 0, $now+86400, 0);
+                $self->set_cookie(undef, 'cookie', $cookie_file, '//+delayload', $domain, undef, 0, 0, $now+86_400, 0);
             }
         }
     }

t/10-original_spec.t

@@ -11,7 +11,7 @@ use HTTP::Request ();
 use HTTP::Response ();
 use URI ();
 
-my $expiry_string = HTTP::Date::time2str( time + 86400 );
+my $expiry_string = HTTP::Date::time2str( time + 86_400 );
 my $jar = HTTP::Cookies->new();
 
 plan tests => 20;

t/publicsuffix.t

@@ -11,7 +11,7 @@ use HTTP::Request ();
 use HTTP::Response ();
 
 
-my $expiry_string = HTTP::Date::time2str( time + 86400 );
+my $expiry_string = HTTP::Date::time2str( time + 86_400 );
 my $jar = HTTP::Cookies->new;
 
 {