diff options
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/switchC.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/run/switchC.t b/t/run/switchC.t index 38e79a1a82..7aabbc0c80 100644 --- a/t/run/switchC.t +++ b/t/run/switchC.t @@ -60,18 +60,18 @@ $r = runperl( switches => [ '-CA', '-w' ], like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' ); $r = runperl( switches => [ '-CS', '-w' ], - prog => "#!perl -CS\nprint chr(256)", + progs => [ '#!perl -CS', 'print chr(256)'], stderr => 1, ); like( $r, qr/^$b(?:\r?\n)?$/s, '#!perl -C' ); $r = runperl( switches => [ '-CA', '-w' ], - prog => "#!perl -CS\nprint chr(256)", + progs => [ '#!perl -CS', 'print chr(256)' ], stderr => 1, ); like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s, '#!perl -C with different -C on command line' ); $r = runperl( switches => [ '-w' ], - prog => "#!perl -CS\nprint chr(256)", + progs => [ '#!perl -CS', 'print chr(256)' ], stderr => 1, ); like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s, '#!perl -C but not command line' ); |