<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">use File::Basename;
use Getopt::Long;

my $OS = "unix";
GetOptions(("os|OS:s"));
$OS = $opt_os if $opt_os;

$file = $ARGV[1];
(-r $file) || exit 0;

my $age = (-M $file);
my $dir = "$ARGV[0]/man";

chdir $dir || die "whereami?";
foreach $f (&lt;*.Rd&gt;) {
    exit 0 if ((-M $f) &lt; $age)
}
chdir $OS if (-d $OS);
foreach $f (&lt;*.Rd&gt;) {
    exit 0 if ((-M $f) &lt; $age)
}
exit 1;

### Local Variables: ***
### mode: perl ***
### perl-indent-level: 4 ***
### End: ***
</pre></body></html>