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

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' );