resolve #220 - pass max_age and samesite to CGI::Cookie

in the CGI::cookie method
leejo · Apr 6, 2017 · 1d712e9 · 1d712e9
1 parent 96ce794
commit 1d712e9
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/CGI.pm b/lib/CGI.pm
@@ -2755,8 +2755,8 @@ sub url {
 ####
 sub cookie {
     my($self,@p) = self_or_default(@_);
-    my($name,$value,$path,$domain,$secure,$expires,$httponly) =
-	rearrange([NAME,[VALUE,VALUES],PATH,DOMAIN,SECURE,EXPIRES,HTTPONLY],@p);
+    my($name,$value,$path,$domain,$secure,$expires,$httponly,$max_age,$samesite) =
+	rearrange([NAME,[VALUE,VALUES],PATH,DOMAIN,SECURE,EXPIRES,HTTPONLY,'MAX-AGE',SAMESITE],@p);
 
     require CGI::Cookie;
 
@@ -2784,6 +2784,8 @@ sub cookie {
     push(@param,'-expires'=>$expires) if $expires;
     push(@param,'-secure'=>$secure) if $secure;
     push(@param,'-httponly'=>$httponly) if $httponly;
+    push(@param,'-max_age'=>$max_age) if $max_age;
+    push(@param,'-samesite'=>$samesite) if $samesite;
 
     return CGI::Cookie->new(@param);
 }