X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/88b04955bf917680915463d4ea09b03db53330dc..f4cbf9907d63df65667e01b565f10d18b7166dce:/ext/File-Glob/Glob.pm

diff --git a/ext/File-Glob/Glob.pm b/ext/File-Glob/Glob.pm
index a665816..974625b 100644
--- a/ext/File-Glob/Glob.pm
+++ b/ext/File-Glob/Glob.pm
@@ -29,10 +29,12 @@ use feature 'switch';
         GLOB_NOSPACE
         GLOB_QUOTE
         GLOB_TILDE
-        glob
         bsd_glob
+        glob
     ) ],
 );
+$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
+pop @{$EXPORT_TAGS{bsd_glob}}; # no "glob"
 
 @EXPORT_OK   = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
 
@@ -50,6 +52,9 @@ sub import {
 		no warnings 'redefine';
 		*CORE::GLOBAL::glob = \&File::Glob::csh_glob;
 	    }
+	    if ($_ eq ':bsd_glob') {
+		no strict; *{caller."::glob"} = \&bsd_glob_override;
+	    }
 	    $passthrough = 1;
 	}
 	$passthrough;