Also set the $^H lexical flag in unimport

[perl/modules/Lexical-Types.git] / lib / Lexical / Types.pm

diff --git a/lib/Lexical/Types.pm b/lib/Lexical/Types.pm
index a30c9cccb3964264210299fe88e476e439d208be..531e0e82cf5c219e914564ca6c03d88b470ea9bf 100644 (file)
--- a/lib/Lexical/Types.pm
+++ b/lib/Lexical/Types.pm
@@ -164,8 +164,6 @@ sub import {
  }
 
  $^H |= 0x020000;
- # Yes, we store a coderef inside the hints hash, but that's just for compile
- # time.
  $^H{+(__PACKAGE__)} = $hint;
 }
 
@@ -179,6 +177,7 @@ Turns the pragma off.
 =cut
 
 sub unimport {
+ $^H |= 0x020000;
  $^H{+(__PACKAGE__)} = undef;
 }