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 /proto.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 'proto.h')
-rw-r--r-- | proto.h | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -2571,11 +2571,7 @@ PERL_CALLCONV void Perl_pad_free(pTHX_ PADOFFSET po); STATIC void S_pad_reset(pTHX); #endif PERL_CALLCONV void Perl_pad_swipe(pTHX_ PADOFFSET po, bool refadjust); -PERL_CALLCONV void Perl_peep(pTHX_ OP* o, peep_next_t *next_peep) - __attribute__nonnull__(pTHX_2); -#define PERL_ARGS_ASSERT_PEEP \ - assert(next_peep) - +PERL_CALLCONV void Perl_peep(pTHX_ OP* o); PERL_CALLCONV PerlIO* Perl_start_glob(pTHX_ SV *tmpglob, IO *io) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); |