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 (file)
--- 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";
 
 
 #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++ }];