From: Steve Hay <SteveHay@planit.com>
Date: Tue, 18 May 2004 11:31:04 +0000 (+0100)
Subject: Test portability nit.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bc2a472ee2496e18323688445a703595a998e3a4;p=p5sagit%2Fp5-mst-13.2.git

Test portability nit.
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
---

diff --git a/ext/B/t/optree_specials.t b/ext/B/t/optree_specials.t
index bceda7c..72fff66 100644
--- a/ext/B/t/optree_specials.t
+++ b/ext/B/t/optree_specials.t
@@ -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++ }];