summaryrefslogtreecommitdiff
path: root/op.h
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2010-12-31 18:55:36 +0000
committerDavid Mitchell <davem@iabyn.com>2011-01-02 20:00:27 +0000
commitd1bea3d84afd8d32a236c8d800e5dfc0f837570e (patch)
tree7dab3aeb9baab81964b9a5e1de46c462327177e4 /op.h
parentbd31915d33b7eefea64e1a3f2416f804acf79df2 (diff)
downloadperl-d1bea3d84afd8d32a236c8d800e5dfc0f837570e.tar.gz
call pp_glob() even when its being skipped
Currently when an external Perl glob function is used (which is most of the time), the OP_GLOB op is removed and replaced with the pair: GV("CORE::GLOBAL::glob"), ENTERSUB. This commit re-adds the OP_GLOB to the op tree, but with OPf_SPECIAL set; and pp_glob() is updated to just return if OPf_SPECIAL is set. Thus there's no change in outward functionality with this commit. However, by always calling pp_glob(), it will allow us (in the next commit) to handle iterator overloading consistently, regardless of whether the internal globbing function is used or not.
Diffstat (limited to 'op.h')
-rw-r--r--op.h1
1 files changed, 1 insertions, 0 deletions
diff --git a/op.h b/op.h
index a55bb1e536..4d6229bf2c 100644
--- a/op.h
+++ b/op.h
@@ -146,6 +146,7 @@ Deprecated. Use C<GIMME_V> instead.
that was optimised away, so it should
not be bound via =~ */
/* On OP_CONST, from a constant CV */
+ /* On OP_GLOB, use Perl glob function */
/* old names; don't use in new code, but don't break them, either */
#define OPf_LIST OPf_WANT_LIST