X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=lib%2Findirect.pm;h=b0077c422fe2718c2d41452fdea93e4280a1f5fe;hp=c2854689ada8bd83045ebd52c063c230dabb9690;hb=26219bdddde6aaecd8d1caa1770bf3de5c0f66b7;hpb=d34f50c40cce04c745a116755c566e4c4e3a516d

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