diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-15 14:42:47 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-15 14:42:47 +0100 |
| commit | 6101faccea00167a2d03759eb9317a09cf9d9412 (patch) | |
| tree | 0e32fe4088c4a697a131bf2738012f697b98d5cb /ext | |
| parent | 4ffa64ab12e31efc743087461ba063710b6d203b (diff) | |
| download | perl-6101faccea00167a2d03759eb9317a09cf9d9412.tar.gz | |
Implement File::Glob::GLOB_CSH in XS instead of perl.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/File-Glob/Glob.pm | 8 | ||||
| -rw-r--r-- | ext/File-Glob/Makefile.PL | 6 |
2 files changed, 5 insertions, 9 deletions
diff --git a/ext/File-Glob/Glob.pm b/ext/File-Glob/Glob.pm index 6fc06fa838..5ae3c6db43 100644 --- a/ext/File-Glob/Glob.pm +++ b/ext/File-Glob/Glob.pm @@ -74,14 +74,6 @@ sub AUTOLOAD { XSLoader::load(); -sub GLOB_CSH () { - GLOB_BRACE() - | GLOB_NOMAGIC() - | GLOB_QUOTE() - | GLOB_TILDE() - | GLOB_ALPHASORT() -} - $DEFAULT_FLAGS = GLOB_CSH(); if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos)$/) { $DEFAULT_FLAGS |= GLOB_NOCASE(); diff --git a/ext/File-Glob/Makefile.PL b/ext/File-Glob/Makefile.PL index c1f86d593f..790613bde4 100644 --- a/ext/File-Glob/Makefile.PL +++ b/ext/File-Glob/Makefile.PL @@ -26,6 +26,10 @@ WriteConstants( NAME => 'File::Glob', NAMES => [qw(GLOB_ABEND GLOB_ALPHASORT GLOB_ALTDIRFUNC GLOB_BRACE GLOB_ERR GLOB_LIMIT GLOB_MARK GLOB_NOCASE GLOB_NOCHECK GLOB_NOMAGIC - GLOB_NOSORT GLOB_NOSPACE GLOB_QUOTE GLOB_TILDE)], + GLOB_NOSORT GLOB_NOSPACE GLOB_QUOTE GLOB_TILDE), + {name => 'GLOB_CSH', + value => 'GLOB_BRACE|GLOB_NOMAGIC|GLOB_QUOTE|GLOB_TILDE|GLOB_ALPHASORT', + macro => 1}, + ], BREAKOUT_AT => 8, ); |