view release on metacpan or  search on metacpan

examples/delete_session_data.pl  view on Meta::CPAN

print "\nCleaning session in " . $dir . " (timeout = " . $time . ")\n\n";

opendir(DIR, $dir);
my @files = readdir(DIR);

foreach my $file (@files)
{
  if ($file =~ /^[a-z0-9]{32}$/ )
  {
    if ($now - (stat($dir.'/'.$file))[8] >= $time)
    {
      clean($dir.'/'.$file);
      clean($dir.'/Apache-Session-'.$file.'.lock');
      $cnt++;
      $lnt++;
    }
    else
    {
      $current++;
    }

inc/Module/Install.pm  view on Meta::CPAN

# If the script that is loading Module::Install is from the future,
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 and (stat($0))[9] > time ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future.

This is known to create infinite loops in make.

Please correct this, then run $0 again.

END_DIE