diff options
| author | Steve Hay <SteveHay@planit.com> | 2004-04-07 10:46:01 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-04-07 08:26:48 +0000 |
| commit | 498d59dd5e74232ff73ab47a68daf476accc8df1 (patch) | |
| tree | 47c1221d1067160ddd8cfb98cd21339ada98d132 /ext | |
| parent | b9381830ea61ec067aab6d500e359e6a80e285b6 (diff) | |
| download | perl-498d59dd5e74232ff73ab47a68daf476accc8df1.tar.gz | |
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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/t/optree_samples.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/B/t/optree_samples.t b/ext/B/t/optree_samples.t index 0f3fb4baa5..d22eb911d9 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 |