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.
[perl5.git] / ext / B / t / optree_misc.t
index 38712be..bcb0f2e 100644 (file)
@@ -100,7 +100,7 @@ if ($] < 5.009) {
 } 
 
 checkOptree ( name      => 'index and PVBM',
 } 
 
 checkOptree ( name      => 'index and PVBM',
-             prog      => '$_ = index "foo", "foo"',
+             prog      => '$_ = index q(foo), q(foo)',
              strip_open_hints => 1,
              expect    => $t,  expect_nt => $nt);
 
              strip_open_hints => 1,
              expect    => $t,  expect_nt => $nt);