This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Make the peep recurse via PL_peepp"
[perl5.git] / proto.h
diff --git a/proto.h b/proto.h
index 39b88c5..17c3212 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -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);