This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Smoke 18027 FAIL(F) MSWin32 5.0 Win2000Pro (MSWin32-x86)
[perl5.git] / t / run / switches.t
index 9bcbc80..bfae4eb 100644 (file)
@@ -66,7 +66,7 @@ is( $r, 'abc-def--ghi-jkl-mno--pq-/', '-0777 (slurp mode)' );
 
 $r = runperl(
     switches   => [ '-066' ],
-    prog       => 'BEGIN { print "($/)" } print "[$/]"',
+    prog       => 'BEGIN { print qq{($/)} } print qq{[$/]}',
 );
 is( $r, "(\066)[\066]", '$/ set at compile-time' );