diff options
| author | Steve Hay <SteveHay@planit.com> | 2004-05-18 12:31:04 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-05-20 11:48:29 +0000 |
| commit | bc2a472ee2496e18323688445a703595a998e3a4 (patch) | |
| tree | 68919b2e1fd7d892ff7a2f5a0b8329f5ec5997c4 /ext | |
| parent | 134ca3d6c0df26ae21f9d33f6fbf207fca26b857 (diff) | |
| download | perl-bc2a472ee2496e18323688445a703595a998e3a4.tar.gz | |
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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/t/optree_specials.t | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/ext/B/t/optree_specials.t b/ext/B/t/optree_specials.t index bceda7c6dd..72fff6688e 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++ }]; |