diff options
| author | Abe Timmerman <abe@ztreet.demon.nl> | 2002-10-18 01:38:34 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-10-17 20:33:32 +0000 |
| commit | 0fbedf1d02b8cd54a5c0f7085e51fe64e9af7892 (patch) | |
| tree | cd2b711c2996d454c5d5d6c9c83a9b0790a252fd /t/run | |
| parent | 26ec6fc3972632211ff6621d98aed1b1df0d166d (diff) | |
| download | perl-0fbedf1d02b8cd54a5c0f7085e51fe64e9af7892.tar.gz | |
Re: Smoke 18027 FAIL(F) MSWin32 5.0 Win2000Pro (MSWin32-x86)
Message-Id: <200210172338.34728.abe@ztreet.demon.nl>
p4raw-id: //depot/perl@18028
Diffstat (limited to 't/run')
| -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' ); |