Express @File::Glob::EXPORT_OK in terms of %File::Glob::EXPORT_TAGS.

This reduces duplication.

diff --git a/ext/File-Glob/Glob.pm b/ext/File-Glob/Glob.pm
index 51c36b3..6fc06fa 100644 (file)
--- a/ext/File-Glob/Glob.pm
+++ b/ext/File-Glob/Glob.pm
@@ -11,28 +11,6 @@ require XSLoader;
 # NOTE: The glob() export is only here for compatibility with 5.6.0.
 # csh_glob() should not be used directly, unless you know what you're doing.
 
-@EXPORT_OK   = qw(
-    csh_glob
-    bsd_glob
-    glob
-    GLOB_ABEND
-    GLOB_ALPHASORT
-    GLOB_ALTDIRFUNC
-    GLOB_BRACE
-    GLOB_CSH
-    GLOB_ERR
-    GLOB_ERROR
-    GLOB_LIMIT
-    GLOB_MARK
-    GLOB_NOCASE
-    GLOB_NOCHECK
-    GLOB_NOMAGIC
-    GLOB_NOSORT
-    GLOB_NOSPACE
-    GLOB_QUOTE
-    GLOB_TILDE
-);
-
 %EXPORT_TAGS = (
     'glob' => [ qw(
         GLOB_ABEND
@@ -56,6 +34,8 @@ require XSLoader;
     ) ],
 );
 
+@EXPORT_OK   = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
+
 $VERSION = '1.09';
 
 sub import {