diff options
| -rw-r--r-- | t/run/switches.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/run/switches.t b/t/run/switches.t index 9bcbc80a9e..bfae4eb60a 100644 --- 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' ); |