PATCH t/TEST

Message-ID: <20020427180656.5422.qmail@plover.com>

p4raw-id: //depot/perl@16223

diff --git a/t/TEST b/t/TEST
index ec388a9..af9edc8 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -254,7 +254,7 @@ EOT
 
 open HACK, '.\\perl $pl2c $test_executable |';
 # cl.exe prints the name of the .c file on stdout (\%^\$^#)
-while(<HACK>) {m/^\w+\.[cC]\$/ && next;print}
+while(<HACK>) {m/^\\w+\\.[cC]\$/ && next;print}
 open HACK, '$test_executable |';
 while(<HACK>) {print}
 EOT