X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=lib%2Findirect.pm;h=138172e6dbb4af930263401452afcda5b5344da7;hp=b1278f8e5093b9f270af9f455dcdcbc7f79a0bd0;hb=73065691a24f100af6f7fd8055ccca40772f42b2;hpb=c52983a17fc61e02c319a9389c61c9c68319b492 diff --git a/lib/indirect.pm b/lib/indirect.pm index b1278f8..138172e 100644 --- a/lib/indirect.pm +++ b/lib/indirect.pm @@ -1,5 +1,7 @@ package indirect; +use 5.008; + use strict; use warnings; @@ -9,13 +11,13 @@ indirect - Lexically warn about using the indirect object syntax. =head1 VERSION -Version 0.07_03 +Version 0.08 =cut our $VERSION; BEGIN { - $VERSION = '0.07_03'; + $VERSION = '0.08'; } =head1 SYNOPSIS @@ -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).