diff options
| author | Florian Ragwitz <rafl@debian.org> | 2010-07-23 08:38:13 +0200 |
|---|---|---|
| committer | Florian Ragwitz <rafl@debian.org> | 2010-07-25 18:45:34 +0200 |
| commit | 65bfe90c4b4ea5706a50067179e60d4e8de6807a (patch) | |
| tree | 4abe6c1a81cf9af0fe806c73edad64f99c042c5f /embed.h | |
| parent | a767f83cfc2d7d70f2c373cc53d3166863982d0a (diff) | |
| download | perl-65bfe90c4b4ea5706a50067179e60d4e8de6807a.tar.gz | |
Make the peep recurse via PL_peepp
Also allows extensions, when delegating to Perl_peep, to specify what function
it should use when recursing into a part of the op tree.
The usecase for this are extensions like namespace::alias, which need to hook
into the peep to do their thing. With this change they can stop copying the
whole peep only to add tiny bits of new behaviour to it, allowing them to work
easier on a large variety of perls, without having to maintain one peep which
works on all of them (which is HARD!).
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3150,7 +3150,7 @@ #endif #ifdef PERL_CORE #define pad_swipe(a,b) Perl_pad_swipe(aTHX_ a,b) -#define peep(a) Perl_peep(aTHX_ a) +#define peep(a,b) Perl_peep(aTHX_ a,b) #endif #if defined(USE_REENTRANT_API) #define reentrant_size() Perl_reentrant_size(aTHX) |