From: Steve Hay <SteveHay@planit.com>
Date: Tue, 17 Jun 2008 11:48:14 +0000 (+0000)
Subject: Fix a couple of tests introduced by #34045 which fail on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cba5fa5d0a628e83dc21e7421428994b2d09c88e;p=p5sagit%2Fp5-mst-13.2.git

Fix a couple of tests introduced by #34045 which fail on Win32

p4raw-id: //depot/perl@34070
---

diff --git a/ext/B/t/debug.t b/ext/B/t/debug.t
index 26ed61c..b37565c 100755
--- a/ext/B/t/debug.t
+++ b/ext/B/t/debug.t
@@ -72,7 +72,7 @@ is($a, $b);
 like(B::Debug::_printop(B::main_root),  qr/LISTOP\s+\[OP_LEAVE\]/);
 like(B::Debug::_printop(B::main_start), qr/OP\s+\[OP_ENTER\]/);
 
-$a = `$^X $path "-MO=Debug" -e 'B::main_root->debug' $redir`;
+$a = `$^X $path "-MO=Debug" -e "B::main_root->debug" $redir`;
 like($a, qr/op_next\s+0x0/m);
-$a = `$^X $path "-MO=Debug" -e 'B::main_start->debug' $redir`;
+$a = `$^X $path "-MO=Debug" -e "B::main_start->debug" $redir`;
 like($a, qr/PL_ppaddr\[OP_ENTER\]/m);