From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 10 Feb 2012 11:00:45 +0000 (+0100)
Subject: Correct erroneous $^H bitsetting cargocult which originated in autobox
X-Git-Tag: v0.014~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FWeb-Simple.git;a=commitdiff_plain;h=6c97ab61b01c2b890ca3aecebef9ef74d07fafc2

Correct erroneous $^H bitsetting cargocult which originated in autobox
---

diff --git a/lib/CSS/Declare.pm b/lib/CSS/Declare.pm
index 8102328..78444cf 100644
--- a/lib/CSS/Declare.pm
+++ b/lib/CSS/Declare.pm
@@ -210,7 +210,7 @@ sub _export_tags_into {
 
 sub _install_unexporter {
   my ($class, $unex) = @_;
-  $^H |= 0x120000; # localize %^H
+  $^H |= 0x20000; # localize %^H
   $^H{'CSS::Declare::Unex'} = bless($unex, 'CSS::Declare::Unex');
 }
 
diff --git a/lib/Web/Simple/AntiquatedPerl.pod b/lib/Web/Simple/AntiquatedPerl.pod
index 78f9bf6..8ce752e 100644
--- a/lib/Web/Simple/AntiquatedPerl.pod
+++ b/lib/Web/Simple/AntiquatedPerl.pod
@@ -219,7 +219,7 @@ mongers, the slides are reproduced below.
   $^H
   %^H
   ----
-    $^H |= 0x120000;
+    $^H |= 0x20000;
     $^H{'foo'}
       = bless($foo, 'My::Foo');
   ----
diff --git a/lib/XML/Tags.pm b/lib/XML/Tags.pm
index fd3848b..a9e0785 100644
--- a/lib/XML/Tags.pm
+++ b/lib/XML/Tags.pm
@@ -81,7 +81,7 @@ sub _export_tags_into {
 
 sub _install_unexporter {
   my ($class, $unex) = @_;
-  $^H |= 0x120000; # localize %^H
+  $^H |= 0x20000; # localize %^H
   $^H{'XML::Tags::Unex'} = bless($unex, 'XML::Tags::Unex');
 }