From: Dave Mitchell <davem@fdisolutions.com>
Date: Thu, 15 Dec 2005 22:03:57 +0000 (+0000)
Subject: change #26373 broke threaded builds (aTHX_ now superfluous)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85e8f315433f9a3a82de06003da9e2dbec39f873;p=p5sagit%2Fp5-mst-13.2.git

change #26373 broke threaded builds (aTHX_ now superfluous)
p4raw-link: @26373 on //depot/perl: ce8abf5f5d2e5b19646ab17c24a3ea87c70428c8

p4raw-id: //depot/perl@26376
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 7e8fed7..52b390a 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3008,27 +3008,27 @@ S_doopen_pm(pTHX_ const char *name, const char *mode)
 	const char * const pmc = SvPV_nolen_const(pmcsv);
 	Stat_t pmcstat;
 	if (PerlLIO_stat(pmc, &pmcstat) < 0) {
-	    fp = check_type_and_open(aTHX_ name, mode);
+	    fp = check_type_and_open(name, mode);
 	}
 	else {
 	    Stat_t pmstat;
 	    if (PerlLIO_stat(name, &pmstat) < 0 ||
 	        pmstat.st_mtime < pmcstat.st_mtime)
 	    {
-		fp = check_type_and_open(aTHX_ pmc, mode);
+		fp = check_type_and_open(pmc, mode);
 	    }
 	    else {
-		fp = check_type_and_open(aTHX_ name, mode);
+		fp = check_type_and_open(name, mode);
 	    }
 	}
 	SvREFCNT_dec(pmcsv);
     }
     else {
-	fp = check_type_and_open(aTHX_ name, mode);
+	fp = check_type_and_open(name, mode);
     }
     return fp;
 #else
-    return check_type_and_open(aTHX_ name, mode);
+    return check_type_and_open(name, mode);
 #endif /* !PERL_DISABLE_PMC */
 }