This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix run/switches test on Win32
authorSteve Hay <SteveHay@planit.com>
Tue, 10 Jun 2008 09:49:50 +0000 (10:49 +0100)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Tue, 10 Jun 2008 09:47:41 +0000 (09:47 +0000)
From: "Steve Hay" <SteveHay@planit.com>
Message-ID: <1B32FF956ABF414C9BCE5E487A1497E701DF242E@ukmail02.planit.group>

p4raw-id: //depot/perl@34040

t/run/switches.t

index e5ac5d1..76dec73 100644 (file)
@@ -348,7 +348,7 @@ $r = runperl(
 is( $r, "Hello, world!\n", "-E given" );
 
 $r = runperl(
-    switches    => [ '-nE', q('} END { say q/affe/') ],
+    switches    => [ '-nE', q("} END { say q/affe/") ],
     stdin       => 'zomtek',
 );
 is( $r, "affe\n", '-E works outside of the block created by -n' );