You are viewing a plain text version of this content. The canonical link for it is here.
Posted to cvs@httpd.apache.org by dg...@hyperreal.org on 1999/08/13 02:51:35 UTC
cvs commit: apache-1.3/src/test check_chunked
dgaudet 99/08/12 17:51:35
Modified: src/test check_chunked
Log:
newer perls complain about \r in hex, whatever
Revision Changes Path
1.3 +2 -2 apache-1.3/src/test/check_chunked
Index: check_chunked
===================================================================
RCS file: /home/cvs/apache-1.3/src/test/check_chunked,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- check_chunked 1998/02/07 21:14:18 1.2
+++ check_chunked 1999/08/13 00:51:35 1.3
@@ -24,9 +24,9 @@
for(;;) {
$_ = <> || die "unexpected end of file!\n";
- m#^[0-9a-f]+ *\r$#i || die "bogus chunklen: $_";
+ m#^([0-9a-f]+) *\r$#i || die "bogus chunklen: $_";
- my $chunklen = hex;
+ my $chunklen = hex($1);
exit 0 if ($chunklen == 0);