diff options
Diffstat (limited to 't/run/switches.t')
| -rw-r--r-- | t/run/switches.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/t/run/switches.t b/t/run/switches.t index bfae4eb60a..9ea84a7c73 100644 --- a/t/run/switches.t +++ b/t/run/switches.t @@ -126,12 +126,11 @@ $filename = 'swstest.tmp'; SKIP: { open my $f, ">$filename" or skip( "Can't write temp file $filename: $!" ); print $f <<'SWTEST'; -#!perl -s -print $x +#!perl -sn +BEGIN { print $x; exit } SWTEST close $f or die "Could not close: $!"; $r = runperl( - switches => [ '-s' ], progfile => $filename, args => [ '-x=foo' ], ); |