diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-12-13 05:26:56 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-12-13 05:26:56 -0800 |
| commit | 58b85e8b514ed66dd1005538ab07544406026290 (patch) | |
| tree | 46ea6d289e0e31e52d5949d25c1275505b0b6072 /t | |
| parent | b8bafbdcb2701902921ab5b57da3bdff2a01fbea (diff) | |
| download | perl-58b85e8b514ed66dd1005538ab07544406026290.tar.gz | |
Sigh. Fix lex.t again
PERL_UNICODE can cause things to happen in a different order
internally.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/lex.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/op/lex.t b/t/op/lex.t index 157ac249aa..43b4107b99 100644 --- a/t/op/lex.t +++ b/t/op/lex.t @@ -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}"', |