X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=lib%2Findirect.pm;h=85353e2646ae6318d6739d012595c86652d4dc30;hb=d6fe229b7af0a2a4b8c7f5fd25a27825ccc40653;hp=c2854689ada8bd83045ebd52c063c230dabb9690;hpb=d34f50c40cce04c745a116755c566e4c4e3a516d;p=perl%2Fmodules%2Findirect.git

diff --git a/lib/indirect.pm b/lib/indirect.pm
index c285468..85353e2 100644
--- a/lib/indirect.pm
+++ b/lib/indirect.pm
@@ -145,7 +145,7 @@ sub unimport {
   $^H{+(__PACKAGE__)} = _tag($hook);
  }
 
- ();
+ return;
 }
 
 =head2 C<import>
@@ -157,8 +157,10 @@ As explained in L</unimport>'s description, an C<use indirect> statement will le
 =cut
 
 sub import {
+ $^H |= 0x00020000;
  $^H{+(__PACKAGE__)} = _tag(undef);
- ();
+
+ return;
 }
 
 =head1 FUNCTIONS