Re: Smoke 18027 FAIL(F) MSWin32 5.0 Win2000Pro (MSWin32-x86)

Message-Id: <200210172338.34728.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@18028

diff --git a/t/run/switches.t b/t/run/switches.t
index 9bcbc80..bfae4eb 100644 (file)
--- a/t/run/switches.t
+++ b/t/run/switches.t
@@ -66,7 +66,7 @@ is( $r, 'abc-def--ghi-jkl-mno--pq-/', '-0777 (slurp mode)' );
 
 $r = runperl(
     switches   => [ '-066' ],
 
 $r = runperl(
     switches   => [ '-066' ],

-    prog       => 'BEGIN { print "($/)" } print "[$/]"',
+    prog       => 'BEGIN { print qq{($/)} } print qq{[$/]}',

 );
 is( $r, "(\066)[\066]", '$/ set at compile-time' );
 
 );
 is( $r, "(\066)[\066]", '$/ set at compile-time' );