diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-19 08:36:11 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-19 08:36:11 +0000 |
| commit | 2ed511eccdb1c54a77a99ffd2e8b3d8cf558b45c (patch) | |
| tree | 8f9f071a890158ea4e78c4b60b47f6a8c1bf7a81 /lib/CGI/Cookie.pm | |
| parent | 45e8908fe5b88f920ab544783f3013f36f56fd48 (diff) | |
| download | perl-2ed511eccdb1c54a77a99ffd2e8b3d8cf558b45c.tar.gz | |
Upgrade to CGI.pm 3.01
p4raw-id: //depot/perl@21928
Diffstat (limited to 'lib/CGI/Cookie.pm')
| -rw-r--r-- | lib/CGI/Cookie.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/CGI/Cookie.pm b/lib/CGI/Cookie.pm index 7060fb4827..27a93c55b0 100644 --- a/lib/CGI/Cookie.pm +++ b/lib/CGI/Cookie.pm @@ -220,7 +220,7 @@ sub expires { sub max_age { my $self = shift; my $expires = shift; - $self->{'max-age'} = CGI::Util::expire_calc($expires)-time if defined $expires; + $self->{'max-age'} = CGI::Util::expire_calc($expires)-time() if defined $expires; return $self->{'max-age'}; } |