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

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 4184c8ee55c7927b88967d6860ed7df62cd5cbf8..8b12f989af5aa6b1e7a1e6ad9d0de3a673d1cb3a 100644 (file)
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -4538,14 +4538,12 @@ will complain about not finding "F<Foo::Bar>" there.  In this case you can do:
 
         eval "require $class";
 
-Now that you understand how C<require> looks for files in the case of
-a bareword argument, there is a little extra functionality going on
-behind the scenes.  Before C<require> looks for a "F<.pm>" extension,
-it will first look for a filename with a "F<.pmc>" extension.  A file
-with this extension is assumed to be Perl bytecode generated by
-L<B::Bytecode|B::Bytecode>.  If this file is found, and its modification
-time is newer than a coinciding "F<.pm>" non-compiled file, it will be
-loaded in place of that non-compiled file ending in a "F<.pm>" extension.
+Now that you understand how C<require> looks for files in the case of a
+bareword argument, there is a little extra functionality going on behind
+the scenes.  Before C<require> looks for a "F<.pm>" extension, it will
+first look for a similar filename with a "F<.pmc>" extension. If this file
+is found, it will be loaded in place of any file ending in a "F<.pm>"
+extension.
 
 You can also insert hooks into the import facility, by putting directly
 Perl code into the @INC array.  There are three forms of hooks: subroutine

diff --git a/pp_ctl.c b/pp_ctl.c
index 7ff4858bfe45327e14463402a7a2384f6b7cf85f..fcc6220678482d9e4b1016098a3e449be55fba3e 100644 (file)
--- 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);
     }