From: Steffen Mueller <smueller@cpan.org>
Date: Tue, 12 Feb 2013 17:26:44 +0000 (+0100)
Subject: The rpeepp and peepp functions need a THX
X-Git-Tag: v5.17.9~74
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/f03584620600bc0700ff23914e588625f06871ce

The rpeepp and peepp functions need a THX
---

diff --git a/pod/perlguts.pod b/pod/perlguts.pod
index 7cbaa36..79c1bbb 100644
--- a/pod/perlguts.pod
+++ b/pod/perlguts.pod
@@ -1924,7 +1924,7 @@ per-subroutine or recursive stage, like this:
     static void my_peep(pTHX_ OP *o)
     {
         /* custom per-subroutine optimisation goes here */
-        prev_peepp(o);
+        prev_peepp(aTHX_ o);
         /* custom per-subroutine optimisation may also go here */
     }
     BOOT:
@@ -1938,7 +1938,7 @@ per-subroutine or recursive stage, like this:
         for(; o; o = o->op_next) {
             /* custom per-op optimisation goes here */
         }
-        prev_rpeepp(orig_o);
+        prev_rpeepp(aTHX_ orig_o);
     }
     BOOT:
         prev_rpeepp = PL_rpeepp;