This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Platform-neutral quoting in optree_misc.t.
authorCraig A. Berry <craigberry@mac.com>
Thu, 25 Oct 2007 21:36:42 +0000 (21:36 +0000)
committerCraig A. Berry <craigberry@mac.com>
Thu, 25 Oct 2007 21:36:42 +0000 (21:36 +0000)
p4raw-id: //depot/perl@32194

ext/B/t/optree_misc.t

index 38712be..bcb0f2e 100644 (file)
@@ -100,7 +100,7 @@ if ($] < 5.009) {
 } 
 
 checkOptree ( name      => 'index and PVBM',
-             prog      => '$_ = index "foo", "foo"',
+             prog      => '$_ = index q(foo), q(foo)',
              strip_open_hints => 1,
              expect    => $t,  expect_nt => $nt);