diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/feature/implicit | 6 | ||||
| -rw-r--r-- | t/op/override.t | 10 |
2 files changed, 11 insertions, 5 deletions
diff --git a/t/lib/feature/implicit b/t/lib/feature/implicit index 3a82f01594..e2ae95a19d 100644 --- a/t/lib/feature/implicit +++ b/t/lib/feature/implicit @@ -25,11 +25,11 @@ say defined $INC{"feature.pm"} ? "Helloworld" : "Good bye"; EXPECT Helloworld ######## -# VERSION requirement, doesn't load anything for < 5.9.5 +# VERSION requirement, doesn't call feature->import for < 5.9.5 +BEGIN { ++$INC{"feature.pm"} } +sub feature::import { print "improting\n" } use 5.8.8; -print "<".$INC{"feature.pm"}.">\n"; EXPECT -<> ######## # VERSION requirement, doesn't load anything with require require 5.9.5; diff --git a/t/op/override.t b/t/op/override.t index ab2cbf1515..be39cf9330 100644 --- a/t/op/override.t +++ b/t/op/override.t @@ -49,8 +49,14 @@ is( $r, "Foo.pm" ); eval "use Foo::Bar"; is( $r, join($dirsep, "Foo", "Bar.pm") ); -eval "use 5.006"; -is( $r, "5.006" ); +# Under PERL_UNICODE, %^H is set, causing Perl_utilize to require +# feature.pm after 5.006, in order to turn off features. Stop that +# from interfering with this test by unsetting HINT_LOCALIZE_HH. +{ + BEGIN { $^H &= ~0x00020000 } # HINT_LOCALIZE_HH + eval "use 5.006"; + is( $r, "5.006" ); +} { local $_ = 'foo.pm'; |