summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorFlorian Ragwitz <rafl@debian.org>2010-08-16 00:16:00 +0200
committerFlorian Ragwitz <rafl@debian.org>2010-08-16 00:18:20 +0200
commit666e7765a1af9c81577039073e9ff43b19d9110f (patch)
treeff72f5d3cf5cbe011e1115e67bbe74dfd153b114 /perl.h
parent874cd4e1c18d04983efb99e1366ac237240dcd07 (diff)
downloadperl-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.h8
1 files changed, 1 insertions, 7 deletions
diff --git a/perl.h b/perl.h
index 74fb62ecb7..1def000bf7 100644
--- a/perl.h
+++ b/perl.h
@@ -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,