Support one-parameter unpack(), which unpacks $_.

[p5sagit/p5-mst-13.2.git] / t / run / switches.t

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' ],
-    prog       => 'BEGIN { print "($/)" } print "[$/]"',
+    prog       => 'BEGIN { print qq{($/)} } print qq{[$/]}',
 );
 is( $r, "(\066)[\066]", '$/ set at compile-time' );