Make change #22889 work for threaded builds.

p4raw-link: @22889 on //depot/perl: e1f795dc699c88c2d9eb4a46fe629483760393c2

p4raw-id: //depot/perl@22896

diff --git a/pad.c b/pad.c
index 0b0491c..8b5f86a 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -588,7 +588,7 @@ Perl_pad_findmy(pTHX_ char *name)
  */
 
 PADOFFSET
-Perl_find_rundefsvoffset()
+Perl_find_rundefsvoffset(pTHX)
 {
     SV *out_sv;
     int out_flags;

diff --git a/pp.c b/pp.c
index c0c7420..2d73123 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -4342,7 +4342,7 @@ PP(pp_reverse)
        else
            sv_setsv(TARG, (SP > MARK)
                    ? *SP
-                   : (padoff_du = Perl_find_rundefsvoffset(),
+                   : (padoff_du = find_rundefsvoffset(),
                        (padoff_du == NOT_IN_PAD || PAD_COMPNAME_FLAGS(padoff_du) & SVpad_OUR)
                        ? DEFSV : PAD_SVl(padoff_du)));
        up = SvPV_force(TARG, len);