summaryrefslogtreecommitdiff
path: root/embed.h
diff options
context:
space:
mode:
authorFlorian Ragwitz <rafl@debian.org>2010-07-23 08:38:13 +0200
committerFlorian Ragwitz <rafl@debian.org>2010-07-25 18:45:34 +0200
commit65bfe90c4b4ea5706a50067179e60d4e8de6807a (patch)
tree4abe6c1a81cf9af0fe806c73edad64f99c042c5f /embed.h
parenta767f83cfc2d7d70f2c373cc53d3166863982d0a (diff)
downloadperl-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.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/embed.h b/embed.h
index 07aa965d29..5312d22bdd 100644
--- a/embed.h
+++ b/embed.h
@@ -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)