X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=lib%2Findirect.pm;h=138172e6dbb4af930263401452afcda5b5344da7;hp=ebfb264cfa5144a3da8eb8d76d8438f41724ba68;hb=73065691a24f100af6f7fd8055ccca40772f42b2;hpb=3da3422a177506a76087adc565afc06564df0b99 diff --git a/lib/indirect.pm b/lib/indirect.pm index ebfb264..138172e 100644 --- a/lib/indirect.pm +++ b/lib/indirect.pm @@ -1,5 +1,7 @@ package indirect; +use 5.008; + use strict; use warnings; @@ -60,12 +62,13 @@ sub import { sub unimport { (undef, my $type) = @_; + $^H |= 0x00020000; $^H{indirect} = (defined $type and $type eq ':fatal') ? 2 : 1; } =head1 DEPENDENCIES -L 5.9.4. +L 5.8. L (standard since perl 5.006).