From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 27 Jul 2009 06:23:27 +0000 (+0100)
Subject: Avoid using embedded newlines in the "one"liners passed to runperl().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff19758235b083652cade4f521dd2057f79ddd07;p=p5sagit%2Fp5-mst-13.2.git

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