forward port of HTTP setCookie patch
This commit is contained in:
parent
25d260c0b4
commit
5c66da33c7
1 changed files with 2 additions and 1 deletions
|
|
@ -159,7 +159,8 @@ The time that the cookie should remain in the browser. Defaults to "+10y" (10 ye
|
|||
sub setCookie {
|
||||
my $name = shift;
|
||||
my $value = shift;
|
||||
my $ttl = shift || '+10y';
|
||||
my $ttl = shift;
|
||||
$ttl = (defined $ttl ? $ttl : '+10y');
|
||||
if (exists $session{req}) {
|
||||
my $cookie = Apache2::Cookie->new($session{req},
|
||||
-name=>$name,
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue