This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/lex.t: Fix test
[perl5.git] / t / op / lex.t
index c009f2d..7601b95 100644 (file)
@@ -62,7 +62,8 @@ fresh_perl_is(
   'no crash when charnames cannot load and %^H holds string'
 );
 fresh_perl_is(
-  'BEGIN{ ++$_ for @INC{"charnames.pm","_charnames.pm"} } "\N{a}"',
+  'BEGIN{ ++$_ for @INC{"charnames.pm","_charnames.pm"};
+          $^H{charnames} = \"foo" } "\N{a}"',
   'Constant(\N{a}) unknown at - line 1, within string' . "\n"
  ."Execution of - aborted due to compilation errors.\n",
    { stderr => 1 },