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 (file)
--- 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