In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ff19758235b083652cade4f521dd2057f79ddd07?hp=4085a377252e8493c61e9548893d25030c462b89>
- Log ----------------------------------------------------------------- commit ff19758235b083652cade4f521dd2057f79ddd07 Author: Nicholas Clark <[email protected]> Date: Mon Jul 27 07:23:27 2009 +0100 Avoid using embedded newlines in the "one"liners passed to runperl(). ----------------------------------------------------------------------- Summary of changes: 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 38e79a1..7aabbc0 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' ); -- Perl5 Master Repository
