Re^2: Find installed Perl modules matching a regular expression

Here is another idea, I would replace

        if (-M $init_file > $days) {
            $message = "Warning: $init_file is older than $days day\n"
[download]

with a check to see if $init_file is more recently modified than a directory in @INC, like


for my $init_file ( '.', '..' ) {
    my $mod = ( stat $init_file )[9];
    if ( my @mod = grep { ( stat $_ )[9] > $mod } @INC ) {
        warn "Warning: $init_file is older than (", join( ' , ', @mod 
+), ") ";
    }
}

__END__
Warning: .. is older than (C:/perl/5.10.1/lib/MSWin32-x86-multi-thread
+ , C:/perl/5.10.1/lib , C:/perl/site/5.10.1/lib/MSWin32-x86-multi-thr
+ead , C:/perl/site/5.10.1/lib , .)  at - line 4.
[download]

Comment on Re^2: Find installed Perl modules matching a regular expression Select or Download Code

Replies are listed 'Best First'.
Re^3: Find installed Perl modules matching a regular expression by toolic (Bishop) on Sep 26, 2009 at 00:49 UTC
Nice idea. However, it does not seem to work if a sub-directory of a directory in @INC has been modified. Since directories under @INC can be arbitrarily deep, it would be necessary to perform a find on all directories, which is what the init file was designed to avoid. Perhaps there is a more efficient way to check if any directory has been modified throughout a tree.	[reply]
Re^4: Find installed Perl modules matching a regular expression by Anonymous Monk on Sep 26, 2009 at 01:08 UTC
it would be necessary to perform a find on all directories I don't think that is neccessary. perllocal.pod lives in @INC, and when you install modules (with ExtUtils::MakeMaker), perllocal.pod gets updated, and the directory mtime gets updated. Since Module::Build doesn't update perllocal (yet), and neither do ppm or apt-get..., after installing a module an admin might touch @INC `$atime = $mtime = time; utime $atime, $mtime, @INC;` [download] Additional directories to check might be `perl -V:installbin -V:installscript -V:installsitebin` [download]	[reply] [d/l] [select]
Re^5: Find installed Perl modules matching a regular expression by toolic (Bishop) on Sep 27, 2009 at 00:17 UTC
Thanks for the explanations. I will investigate these tips further.	[reply]