diff options
| author | Edmund von der Burg <evdb@mysociety.org> | 2011-04-11 15:58:04 +0100 |
|---|---|---|
| committer | Edmund von der Burg <evdb@mysociety.org> | 2011-04-11 15:58:04 +0100 |
| commit | 5296c916e46becc8cc7d68d3008572c8bf0e4163 (patch) | |
| tree | 8556347b7a9cb434358aa3cf86fdf81d53fa4ebd | |
| parent | ac446ecb8fa1930329919aedae1454f7624621e0 (diff) | |
Mute undef warning
| -rw-r--r-- | perllib/FixMyStreet/TestMech.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm index c16f288c8..3c2eb533d 100644 --- a/perllib/FixMyStreet/TestMech.pm +++ b/perllib/FixMyStreet/TestMech.pm @@ -299,7 +299,8 @@ sub session_cookie_expiry { ->cookie_jar # ->scan( sub { $expires = $_[8] if $_[1] eq $cookie_name } ); - croak "Could not find cookie '$cookie_name'" if $expires eq 'not found'; + croak "Could not find cookie '$cookie_name'" + if $expires && $expires eq 'not found'; return $expires || 0; } |