stopped XML::Tags from throwing bareword warnings

diff --git a/lib/XML/Tags.pm b/lib/XML/Tags.pm
index 8b30b60..fd3848b 100644 (file)
--- a/lib/XML/Tags.pm
+++ b/lib/XML/Tags.pm
@@ -17,6 +17,7 @@ sub import {
   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;
 }