diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2003-06-03 17:08:32 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-05 18:50:51 +0000 |
| commit | f0b2cf552638278613953870ec9b5623f83b321d (patch) | |
| tree | 6c6026cb33c07d128046a103bf3fceb19cbc108e /t/run/switches.t | |
| parent | 84c133a0c99ec2d2efc517f14b45051d3bfe4074 (diff) | |
| download | perl-f0b2cf552638278613953870ec9b5623f83b321d.tar.gz | |
Re: SPUG:-s option doesn't always work!
Message-ID: <wrZ3+gzkg2iX092yn@efn.org>
p4raw-id: //depot/perl@19695
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' ], ); |