Avoid using embedded newlines in the "one"liners passed to runperl().

diff --git a/t/run/switchC.t b/t/run/switchC.t
index 38e79a1..7aabbc0 100644 (file)
--- 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' );