stas 2004/08/25 12:49:23
Modified: t/response/TestApache util.pm
Log:
fix the argument order for t_cmp
Revision Changes Path
1.7 +2 -2 modperl-2.0/t/response/TestApache/util.pm
Index: util.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/util.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -u -r1.6 -r1.7
--- util.pm 14 Aug 2004 00:24:16 -0000 1.6
+++ util.pm 25 Aug 2004 19:49:23 -0000 1.7
@@ -86,7 +86,7 @@
Apache::OK;
}
-my $fmtdate_ptn = qr/^\w+, \d\d \w+ \d\d\d\d \d\d:\d\d:\d\d/;
+my $fmtdate_re = qr/^\w+, \d\d \w+ \d\d\d\d \d\d:\d\d:\d\d/;
sub time_cmp {
my($fmtdate, $time, $comment, $exact_match) = @_;
@@ -96,7 +96,7 @@
ok t_cmp $ptime, $time, $comment;
}
else {
- ok t_cmp $fmtdate_ptn, $fmtdate, $comment;
+ ok t_cmp $fmtdate, $fmtdate_re, $comment;
}
}
