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);