diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-10-26 23:48:27 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-27 00:27:06 -0700 |
| commit | 960ddb65a25642640884251e9047635391367159 (patch) | |
| tree | 0f5ade890b5929461d042f07b883482b3e21840a /ext/File-Glob | |
| parent | 4218a421ca4ecaf9f1ccecfe21ebd15cbf499059 (diff) | |
| download | perl-960ddb65a25642640884251e9047635391367159.tar.gz | |
File::Glob: Eliminate the doglob alias to bsd_glob
I’m referring here to CVs, not C functions.
Actually, bsd_glob is the alias to doglob. doglob is no longer
called, as of commit 1bb8785ab1. So this commit is actually renaming
doglob to bsd_glob and removing the alias.
Diffstat (limited to 'ext/File-Glob')
| -rw-r--r-- | ext/File-Glob/Glob.xs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/ext/File-Glob/Glob.xs b/ext/File-Glob/Glob.xs index a5f531d68f..830bb8cfb5 100644 --- a/ext/File-Glob/Glob.xs +++ b/ext/File-Glob/Glob.xs @@ -272,9 +272,8 @@ GLOB_ERROR() RETVAL void -doglob(pattern,...) +bsd_glob(pattern,...) char *pattern -PROTOTYPE: $;$ PREINIT: glob_t pglob; int i; @@ -284,14 +283,13 @@ PREINIT: PPCODE: { dMY_CXT; - dXSI32; /* allow for optional flags argument */ if (items > 1) { flags = (int) SvIV(ST(1)); /* remove unsupported flags */ flags &= ~(GLOB_APPEND | GLOB_DOOFFS | GLOB_ALTDIRFUNC | GLOB_MAGCHAR); - } else if (ix) { + } else { flags = (int) SvIV(get_sv("File::Glob::DEFAULT_FLAGS", GV_ADD)); } @@ -319,8 +317,6 @@ PPCODE: BOOT: { - CV *cv = newXS("File::Glob::bsd_glob", XS_File__Glob_doglob, __FILE__); - XSANY.any_i32 = 1; #ifndef PERL_EXTERNAL_GLOB /* Don’t do this at home! The globhook interface is highly volatile. */ PL_globhook = csh_glob; |