stas 2003/08/19 23:02:30
Modified: t/apache scanhdrs2.t
Log:
if the result is undef, use '' to compare
Revision Changes Path
1.4 +1 -1 modperl-2.0/t/apache/scanhdrs2.t
Index: scanhdrs2.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/apache/scanhdrs2.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- scanhdrs2.t 18 Apr 2003 06:18:55 -0000 1.3
+++ scanhdrs2.t 20 Aug 2003 06:02:30 -0000 1.4
@@ -14,7 +14,7 @@
my $res = GET "$location?$redirect", redirect_ok => 0;
-ok t_cmp($redirect, $res->header('Location'),
+ok t_cmp($redirect, $res->header('Location')||'',
"Location header");
ok t_cmp(302, $res->code,
