my $target = $class->_find_target(0, $opts);
my @tags = $class->_find_tags(@args);
my $unex = $class->_export_tags_into($target => @tags);
+ if ($INC{"bareword/filehandles.pm"}) { bareword::filehandles->import }
$class->_install_unexporter($unex);
$IN_SCOPE = 1;
}
ref($_)
? (ref $_ eq 'SCALAR' ? $$_ : $_)
: do { local $_ = $_; # copy
- s/&/&/g; s/"/"/g; s/</</g; s/>/>/g; $_;
+ if (defined) {
+ s/&/&/g; s/"/"/g; s/</</g; s/>/>/g; $_;
+ } else {
+ ''
+ }
}
} @_
}
sub _install_unexporter {
my ($class, $unex) = @_;
- $^H |= 0x120000; # localize %^H
+ $^H |= 0x20000; # localize %^H
$^H{'XML::Tags::Unex'} = bless($unex, 'XML::Tags::Unex');
}