sub _install_unexporter {
my ($class, $unex) = @_;
- $^H |= 0x120000; # localize %^H
+ $^H |= 0x20000; # localize %^H
$^H{'CSS::Declare::Unex'} = bless($unex, 'CSS::Declare::Unex');
}
$^H
%^H
----
- $^H |= 0x120000;
+ $^H |= 0x20000;
$^H{'foo'}
= bless($foo, 'My::Foo');
----
sub _install_unexporter {
my ($class, $unex) = @_;
- $^H |= 0x120000; # localize %^H
+ $^H |= 0x20000; # localize %^H
$^H{'XML::Tags::Unex'} = bless($unex, 'XML::Tags::Unex');
}