This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix command-line quoting under Windows for the new optree tests
authorSteve Hay <SteveHay@planit.com>
Wed, 7 Apr 2004 09:46:01 +0000 (10:46 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 7 Apr 2004 08:26:48 +0000 (08:26 +0000)
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

index 0f3fb4b..d22eb91 100644 (file)
@@ -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