diff options
| author | Rainer Tammer <tammer@tammer.net> | 2011-01-07 10:14:27 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2011-01-07 10:22:30 +0000 |
| commit | 698bc959a599ad7b925718fc5ffb1e83e8205294 (patch) | |
| tree | c79fd0615432778148f33e664c2f7dfb9185df54 /cpan/CGI | |
| parent | 93f09d7ba52fad6ba827274ee4fa13235edb2b44 (diff) | |
| download | perl-698bc959a599ad7b925718fc5ffb1e83e8205294.tar.gz | |
[PATCH] Minor problem in cookie.t
Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Diffstat (limited to 'cpan/CGI')
| -rw-r--r-- | cpan/CGI/t/cookie.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cpan/CGI/t/cookie.t b/cpan/CGI/t/cookie.t index 8249f0798e..f10d3b6a4f 100644 --- a/cpan/CGI/t/cookie.t +++ b/cpan/CGI/t/cookie.t @@ -50,8 +50,8 @@ my @test_cookie = ( is_deeply(\@array, [], " parse('') returns an empty array in list context (undocumented)"); is_deeply($scalar, {}, " parse('') returns an empty hashref in scalar context (undocumented)"); - my @array = CGI::Cookie->parse(undef); - my $scalar = CGI::Cookie->parse(undef); + @array = CGI::Cookie->parse(undef); + $scalar = CGI::Cookie->parse(undef); is_deeply(\@array, [], " parse(undef) returns an empty array in list context (undocumented)"); is_deeply($scalar, {}, " parse(undef) returns an empty hashref in scalar context (undocumented)"); } @@ -356,7 +356,7 @@ MAX_AGE: { is $cookie->expires, 'Thu, 01-Jan-1970 00:01:40 GMT'; is $cookie->max_age => undef, 'max-age is undefined when setting expires'; - my $cookie = CGI::Cookie->new( -name=>'a', 'value'=>'b' ); + $cookie = CGI::Cookie->new( -name=>'a', 'value'=>'b' ); $cookie->max_age( '+4d' ); is $cookie->expires, undef, 'expires is undef when setting max_age'; |