This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test portability nit.
authorSteve Hay <SteveHay@planit.com>
Tue, 18 May 2004 11:31:04 +0000 (12:31 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 20 May 2004 11:48:29 +0000 (11:48 +0000)
Subject: [PATCH] Re: Smoke [5.9.2] 22821 FAIL(F) MSWin32 WinXP/.Net SP1 (x86/1 cpu)
Message-ID: <40A9E5E8.7030800@uk.radan.com>

p4raw-id: //depot/perl@22833

ext/B/t/optree_specials.t

index bceda7c..72fff66 100644 (file)
@@ -21,13 +21,7 @@ my $out = runperl(
 
 #print "out:$out\n";
 
-my $src = q{
-    our ($beg, $chk, $init, $end) = "'foo'";
-    BEGIN { $beg++ }
-    CHECK { $chk++ }
-    INIT  { $init++ }
-    END   { $end++ }
-};
+my $src = q[our ($beg, $chk, $init, $end) = qq{'foo'}; BEGIN { $beg++ } CHECK { $chk++ } INIT { $init++ } END { $end++ }];