From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Wed, 2 Jun 2004 17:18:44 +0000 (+0000)
Subject: Make change #22889 work for threaded builds.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=292890215fdbc36b4a0e17df565919fb3f5b8694;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);