diff options
author | Florian Ragwitz <rafl@debian.org> | 2010-08-16 00:16:00 +0200 |
---|---|---|
committer | Florian Ragwitz <rafl@debian.org> | 2010-08-16 00:18:20 +0200 |
commit | 666e7765a1af9c81577039073e9ff43b19d9110f (patch) | |
tree | ff72f5d3cf5cbe011e1115e67bbe74dfd153b114 /perl.h | |
parent | 874cd4e1c18d04983efb99e1366ac237240dcd07 (diff) | |
download | perl-666e7765a1af9c81577039073e9ff43b19d9110f.tar.gz |
Revert "Make the peep recurse via PL_peepp"
This reverts commit 65bfe90c4b4ea5706a50067179e60d4e8de6807a.
While it made a few of the things I wanted possible, a couple of other things
one might need to do and I thought this change would enable don't actually
work. Thanks Zefram for pointing out my mistake.
Conflicts:
ext/XS-APItest/APItest.xs
op.c
Diffstat (limited to 'perl.h')
-rw-r--r-- | perl.h | 8 |
1 files changed, 1 insertions, 7 deletions
@@ -4841,13 +4841,7 @@ struct perl_debug_pad { PERL_DEBUG_PAD(i)) /* Enable variables which are pointers to functions */ -struct peep_next; -typedef void (CPERLscope(*peep_t))(pTHX_ OP* o, struct peep_next *next); -typedef struct peep_next { - peep_t fn; - void *user_data; -} peep_next_t; - +typedef void (CPERLscope(*peep_t))(pTHX_ OP* o); typedef regexp*(CPERLscope(*regcomp_t)) (pTHX_ char* exp, char* xend, PMOP* pm); typedef I32 (CPERLscope(*regexec_t)) (pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, |