This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
change #26373 broke threaded builds (aTHX_ now superfluous)
authorDave Mitchell <davem@fdisolutions.com>
Thu, 15 Dec 2005 22:03:57 +0000 (22:03 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Thu, 15 Dec 2005 22:03:57 +0000 (22:03 +0000)
p4raw-link: @26373 on //depot/perl: ce8abf5f5d2e5b19646ab17c24a3ea87c70428c8

p4raw-id: //depot/perl@26376

pp_ctl.c

index 7e8fed7..52b390a 100644 (file)
--- 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 */
 }