reinstate the right glob in XML::Tags (RT#120071)
[catagits/Web-Simple.git] / lib / XML / Tags.pm
index fd3848b..6a0ea5c 100644 (file)
@@ -73,7 +73,7 @@ sub _export_tags_into {
       no strict 'refs';
       delete ${"${into}::"}{$tag}
     }
-    _set_glob(\&File::Glob::glob);
+    _set_glob(\&File::Glob::csh_glob);
     overload::remove_constant('q');
     $IN_SCOPE = 0;
   };
@@ -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');
 }