X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLexical%2FTypes.pm;h=aa3f0135adda4c850285f0269308149f8751ab74;hb=cd9545fb411da4e5b69ad7fd2f43f8ea879d3ee3;hp=ea79e269f544e5ca9c094780a351442320884f71;hpb=cccda15ab5ef0fac1393861ff95ff48c8b1abff0;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/lib/Lexical/Types.pm b/lib/Lexical/Types.pm
index ea79e26..aa3f013 100644
--- a/lib/Lexical/Types.pm
+++ b/lib/Lexical/Types.pm
@@ -164,9 +164,9 @@ sub import {
  }
 
  $^H |= 0x020000;
- # Yes, we store a coderef inside the hints hash, but that's just for compile
- # time.
  $^H{+(__PACKAGE__)} = $hint;
+
+ return;
 }
 
 =head2 C<unimport>
@@ -179,7 +179,10 @@ Turns the pragma off.
 =cut
 
 sub unimport {
+ $^H |= 0x020000;
  $^H{+(__PACKAGE__)} = undef;
+
+ return;
 }
 
 =head1 RUN-TIME INITIALIZER METHOD
@@ -310,8 +313,6 @@ You can find documentation for this module with the perldoc command.
 
     perldoc Lexical::Types
 
-Tests code coverage report is available at L<http://www.profvince.com/perl/cover/Lexical-Types>.
-
 =head1 ACKNOWLEDGEMENTS
 
 Inspired by Ricardo Signes.