From 292890215fdbc36b4a0e17df565919fb3f5b8694 Mon Sep 17 00:00:00 2001
From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Wed, 2 Jun 2004 17:18:44 +0000
Subject: [PATCH] Make change #22889 work for threaded builds. p4raw-link:
 @22889 on //depot/perl: e1f795dc699c88c2d9eb4a46fe629483760393c2

p4raw-id: //depot/perl@22896
---
 pad.c | 2 +-
 pp.c  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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