From 498d59dd5e74232ff73ab47a68daf476accc8df1 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Wed, 7 Apr 2004 10:46:01 +0100 Subject: [PATCH] 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 --- ext/B/t/optree_samples.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 1.8.3.1