diff options
author | David Mitchell <davem@iabyn.com> | 2010-12-31 18:55:36 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2011-01-02 20:00:27 +0000 |
commit | d1bea3d84afd8d32a236c8d800e5dfc0f837570e (patch) | |
tree | 7dab3aeb9baab81964b9a5e1de46c462327177e4 /op.h | |
parent | bd31915d33b7eefea64e1a3f2416f804acf79df2 (diff) | |
download | perl-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.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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 |