Sigh. Fix lex.t again
authorFather Chrysostomos <sprout@cpan.org>
Thu, 13 Dec 2012 13:26:56 +0000 (05:26 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 13 Dec 2012 13:26:56 +0000 (05:26 -0800)
PERL_UNICODE can cause things to happen in a different order
internally.

t/op/lex.t

index 157ac24..43b4107 100644 (file)
@@ -45,13 +45,16 @@ curr_test(3);
 
 }
 
-fresh_perl_is(
+{
+ delete local $ENV{PERL_UNICODE};
+ fresh_perl_is(
   'BEGIN{ ++$_ for @INC{"charnames.pm","_charnames.pm"} } "\N{a}"',
   'Constant(\N{a}) unknown at - line 1, within string' . "\n"
  ."Execution of - aborted due to compilation errors.\n",
    { stderr => 1 },
   'correct output (and no crash) when charnames cannot load for \N{...}'
-);
+ );
+}
 fresh_perl_is(
   'BEGIN{ ++$_ for @INC{"charnames.pm","_charnames.pm"};
           $^H{charnames} = "foo" } "\N{a}"',