From: Steve Hay <SteveHay@planit.com>
Date: Wed, 7 Apr 2004 09:46:01 +0000 (+0100)
Subject: Fix command-line quoting under Windows for the new optree tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=498d59dd5e74232ff73ab47a68daf476accc8df1;p=p5sagit%2Fp5-mst-13.2.git

Fix command-line quoting under Windows for the new optree tests
Subject: Re: Smoke [5.9.2] 22666 FAIL(F) MSWin32 WinXP/.Net SP1 (x86/1 cpu)
Message-ID: <4073BFC9.10707@uk.radan.com>

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

diff --git a/ext/B/t/optree_samples.t b/ext/B/t/optree_samples.t
index 0f3fb4b..d22eb91 100644
--- a/ext/B/t/optree_samples.t
+++ b/ext/B/t/optree_samples.t
@@ -344,8 +344,8 @@ EOT_EOT
 # d                    <0> unstack s ->e
 EONT_EONT
 
-checkOptree ( name	=> '-exec -e foreach (1..10) {print "foo $_"}',
-	      prog	=> 'foreach (1..10) {print "foo $_"}',
+checkOptree ( name	=> '-exec -e foreach (1..10) {print qq{foo $_}}',
+	      prog	=> 'foreach (1..10) {print qq{foo $_}}',
 	      bcopts	=> '-exec',
 	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 # 1  <0> enter 
@@ -435,8 +435,8 @@ EOT_EOT
 # h  <1> leavesub[1 ref] K/REFC,1
 EONT_EONT
 
-checkOptree ( name	=> '-e use constant j => "junk"; print j',
-	      prog	=> 'use constant j => "junk"; print j',
+checkOptree ( name	=> '-e use constant j => qq{junk}; print j',
+	      prog	=> 'use constant j => qq{junk}; print j',
 	      bcopts	=> '-exec',
 	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 # 1  <0> enter