X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FXML%2FTags.pm;h=6a0ea5c2e36e035d53386c28ecb9ca5fe4230cd5;hb=refs%2Fheads%2Fglobbery;hp=fd3848be324d2ec367af5b4f6f4f6c0d64b4b6d1;hpb=9e561e45a95977e6dd1e10105d22dc9af1f4b481;p=catagits%2FWeb-Simple.git

diff --git a/lib/XML/Tags.pm b/lib/XML/Tags.pm
index fd3848b..6a0ea5c 100644
--- a/lib/XML/Tags.pm
+++ b/lib/XML/Tags.pm
@@ -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');
 }