do not set discard if max-age set

robnagler · oalders · commit dacc2b7b3ba7 · 2020-12-23T16:38:18.000-05:00
diff --git a/lib/HTTP/Cookies.pm b/lib/HTTP/Cookies.pm
@@ -262,6 +262,9 @@ sub extract_cookies
 			}
 		    }
 		}
+                elsif (!$first_param && lc($k) eq 'max-age') {
+                    $expires++;
+                }
                 elsif (!$first_param && lc($k) =~ /^(?:version|discard|ns-cookie)/) {
                     # ignore
                 }

Original file line number	Diff line number	Diff line change
`@@ -262,6 +262,9 @@ sub extract_cookies`
`262`	`262`	`}`
`263`	`263`	`}`
`264`	`264`	`}`
	`265`	`+ elsif (!$first_param && lc($k) eq 'max-age') {`
	`266`	`+ $expires++;`
	`267`	`+ }`
`265`	`268`	`elsif (!$first_param && lc($k) =~ /^(?:version\|discard\|ns-cookie)/) {`
`266`	`269`	`# ignore`
`267`	`270`	`}`