change #26373 broke threaded builds (aTHX_ now superfluous)

p4raw-link: @26373 on //depot/perl: ce8abf5f5d2e5b19646ab17c24a3ea87c70428c8

p4raw-id: //depot/perl@26376

1 files changed, 5 insertions, 5 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 7e8fed7175..52b390a939 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 */
 }