Load .pmc always, even if they are older than a matching .pm file.

(This trick is going to be used by pugs.)

p4raw-id: //depot/perl@27483

1 files changed, 1 insertions, 9 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 7ff4858bfe..fcc6220678 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3037,15 +3037,7 @@ S_doopen_pm(pTHX_ const char *name, const char *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(pmc, mode);
-	    }
-	    else {
-		fp = check_type_and_open(name, mode);
-	    }
+	    fp = check_type_and_open(pmc, mode);
 	}
 	SvREFCNT_dec(pmcsv);
     }