A couple of cosmetic code changes

[perl/modules/indirect.git] / lib / indirect.pm

diff --git a/lib/indirect.pm b/lib/indirect.pm
index c2854689ada8bd83045ebd52c063c230dabb9690..85353e2646ae6318d6739d012595c86652d4dc30 100644 (file)
--- 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