joes 2003/11/13 05:16:35
Modified: glue/perl/t/response/TestApReq cookie.pm
Log:
Undefined may cause a warning, which causes tests to fail.
Revision Changes Path
1.9 +1 -1 httpd-apreq-2/glue/perl/t/response/TestApReq/cookie.pm
Index: cookie.pm
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/t/response/TestApReq/cookie.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- cookie.pm 13 Nov 2003 04:05:20 -0000 1.8
+++ cookie.pm 13 Nov 2003 13:16:35 -0000 1.9
@@ -20,7 +20,7 @@
my $test = $req->param('test');
my $key = $req->param('key');
- if ($cookies{$key}) {
+ if ($key and $cookies{$key}) {
if ($test eq "bake") {
$cookies{$key}->bake;
}
