view release on metacpan or search on metacpan
kSession.pm view on Meta::CPAN
opendir(SD,$cl->{path});
my @files = readdir(SD);
shift @files;
shift @files;
foreach my $f (@files) {
if (((stat($cl->{path}.$f))[9] + $cl->{lifetime}) < time()) {
unlink($cl->{path}.$f);
}
}
closedir(SD);
}
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# 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 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# 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 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
view release on metacpan or search on metacpan
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.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# 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 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# 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 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
view release on metacpan or search on metacpan
lib/CHI/Driver/SharedMem.pm view on Meta::CPAN
if($self->shm_key() && $self->shm()) {
$self->_lock(type => 'write');
my $cur_size = $self->_data_size();
# print $tulip "DEMOLISH: $cur_size bytes\n";
my $can_remove = 0;
my $stat = $self->shm()->stat();
if($cur_size == 0) {
if(defined($stat) && ($stat->nattch() == 1)) {
$self->shm()->detach();
$self->shm()->remove();
$can_remove = 1;
view release on metacpan or search on metacpan
L<CHI::CacheObject|CHI::CacheObject> and L<CHI::Driver|CHI::Driver> as the
parameters. If code returns a true value, C<get> returns undef as if the item
were expired. For example, to treat the cache as expired if I<$file> has
changed since the value was computed:
$cache->get('foo', expire_if => sub { $_[0]->created_at < (stat($file))[9] });
=item busy_lock [DURATION]
If the value has expired, the get will still return undef, but the expiration
time of the cache entry will be set to the current time plus the specified
view release on metacpan or search on metacpan
lib/CIPP/Compile/Cache.pm view on Meta::CPAN
chomp $line;
my ($src_file, $cache_file, $err_file);
($src_file, $cache_file, $err_file) = split(/\t/, $line);
my $src_file_mtime = (stat($src_file))[9];
# check for cached error
$DEBUG && print STDERR "err_file=$err_file\n";
my $has_cached_err = 0;
my $err_file_mtime;
if ( -f $err_file ) {
$DEBUG && print STDERR "err-file $err_file OLDER $src_file : ";
$err_file_mtime = (stat($err_file))[9];
if ( $err_file_mtime < $src_file_mtime ) {
# cache is dirty, if err_file is older than src_file
close IN;
$DEBUG && print STDERR "YES\n";
$DEBUG && print STDERR "Status: $dirty\n";
lib/CIPP/Compile/Cache.pm view on Meta::CPAN
return $dirty;
}
$DEBUG && print STDERR "$cache_file OLDER $src_file : ";
my $cache_file_mtime = (stat($cache_file))[9];
if ( -f $cache_file and $cache_file_mtime < $src_file_mtime ) {
# cache is dirty, if cache_file is older than src_file
close IN;
$DEBUG && print STDERR "YES\n";
lib/CIPP/Compile/Cache.pm view on Meta::CPAN
last;
}
# $DEBUG && print STDERR "consistency check: $src_file OLDER $if_file : ";
#
# if ( (stat($src_file))[9] < (stat($if_file))[9] ) {
# $DEBUG && print STDERR "YES!!!\n";
# $DEBUG && print STDERR "removing $if_file, must be regenerated\n";
# unlink $if_file;
# $status = $dirty;
# last;
# }
$DEBUG && print STDERR "$cache_file OLDER $src_file : ";
if ( (stat($cache_file))[9] < (stat($src_file))[9] ) {
# cache is dirty if one cache_file is older
# than corresponding src_file
$status = $dirty;
$DEBUG && print STDERR "YES\n";
last;
lib/CIPP/Compile/Cache.pm view on Meta::CPAN
$DEBUG && print STDERR "NO\n";
if ( $has_cached_err ) {
$DEBUG && print STDERR "$err_file OLDER $if_file (incompat. interface?) : ";
if ( $err_file_mtime < (stat($if_file))[9] ) {
# cache is dirty if the cached error is older than
# the if_file (which indicates incompatible
# interface change)
$DEBUG && print STDERR "YES\n";
$status = $dirty;
lib/CIPP/Compile/Cache.pm view on Meta::CPAN
$DEBUG && print STDERR "NO\n";
}
$DEBUG && print STDERR "$cache_file OLDER $if_file : ";
if ( $cache_file_mtime < (stat($if_file))[9] ) {
# cache is dirty if the cache_file_mtime of
# our object is older than one if_file
$DEBUG && print STDERR "YES\n";
$status = $dirty if not $has_cached_err;
last;
view release on metacpan or search on metacpan
{
my ($filename) = @_;
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat($filename);
return qq{
Inode\t$ino
Mode\t$mode
UID\t$uid
view release on metacpan or search on metacpan
return $self->force_read_file;
}
if (! defined $self->{COMMON}->{CONFIG}->{DATA}) {
# no reread required if DATA option was used
@f_stat = stat($self->{COMMON}->{FILENAME});
if ($f_stat[9] > $self->{COMMON}->{LASTREAD}) {
$self->{COMMON}->{LASTCHANGED} =
scalar(localtime($f_stat[9]));
return $self->force_read_file;
$self->{COMMON}->{LASTREAD} = time;
$self->{COMMON}->{FILETIME} = time;
$self->read_file_into_cache();
} elsif ($fh->open($self->{COMMON}->{FILENAME})) {
$self->{COMMON}->{LASTREAD} = time;
@f_stat = stat($fh);
$self->{COMMON}->{FILETIME} = $f_stat[9];
$self->read_file_into_cache($fh);
} else {
push(@{$self->{COMMON}->{GLOBALERROR}}, $!);
}
view release on metacpan or search on metacpan
lib/CORBA/IDL/Lexer.pm view on Meta::CPAN
}
else {
print "INTERNAL_ERROR:_Lexer\n";
}
if (defined $parser->YYData->{srcname}) {
my @st = stat($parser->YYData->{srcname});
$parser->YYData->{srcname_size} = $st[7];
$parser->YYData->{srcname_mtime} = $st[9];
}
}
view release on metacpan or search on metacpan
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.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# 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 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
view release on metacpan or search on metacpan
corpus/dists/YAML.changes view on Meta::CPAN
0.84 Fri Jul 13 18:17:27 GMT 2012
- Resolve distribution error that caused .git to be shipped in the .tar.gz
0.83 Fri Jul 13 15:44:03 GMT 2012
- Only call stat() and tell() on a filehandle if fileno existed
- Explicit tied() call on globs to avoid a 5.16 deprecation warning
0.82 Thu Jul 12 18:49:45 GMT 2012
- Test scalar @array rather than deprecated defined @array (Sebastian
Stumpf)
view release on metacpan or search on metacpan
lib/CPAN/Common/Index/LocalPackage.pm view on Meta::CPAN
Carp::croak "can't load gz source files without IO::Uncompress::Gunzip\n"
unless $CPAN::Common::Index::Mirror::HAS_IO_UNCOMPRESS_GUNZIP;
( my $uncompressed = $basename ) =~ s/\.gz$//;
$uncompressed = File::Spec->catfile( $self->cache, $uncompressed );
if ( !-f $uncompressed
or File::stat::stat($source)->mtime > File::stat::stat($uncompressed)->mtime ) {
no warnings 'once';
IO::Uncompress::Gunzip::gunzip( map { "$_" } $source, $uncompressed )
or Carp::croak "gunzip failed: $IO::Uncompress::Gunzip::GunzipError\n";
}
}
else {
my $dest = File::Spec->catfile( $self->cache, $basename );
File::Copy::copy($source, $dest)
if !-e $dest || File::stat::stat($source)->mtime > File::stat::stat($dest)->mtime;
}
return 1;
}
sub search_authors { return }; # this package handles packages only
view release on metacpan or search on metacpan
lib/CPAN/Cpanorg/Auxiliary.pm view on Meta::CPAN
return {
file => $file,
filedir => $dir,
filename => $filename,
mtime => ( stat($file) )[9],
md5 => $cksum->{$filename}->{md5},
sha256 => $cksum->{$filename}->{sha256},
sha1 => $sha1,
};
}
view release on metacpan or search on metacpan
eg/mkreport view on Meta::CPAN
printf OUT $row, $dist, $dist, $dist,
'prereqs', "Prerequisites:", join(', ', sort keys %{$deps->{$dist}{prereqs}}),
scalar keys %{ $deps->{$dist}{prereqs} }
}
my $date = localtime((stat($deps_file))[9]);
print OUT <<"HTML";
</tbody>
</table>
<p style="clear: both"></p>
view release on metacpan or search on metacpan
t/cpandeps-diff-script.t view on Meta::CPAN
($stdout, $stderr) = capture { system( @default_cmd, qw(list)) };
eq_or_diff($stdout, "Brewery\n", "Got expected list");
note("Now add a second mirror, and a module from it");
($stdout, $stderr) = capture { system( @default_cmd, @mirror, qw(add CPAN::FindDependencies mirror DEFAULT)) };
ok((stat(".cpandeps-diff/5.30.3/CPAN::FindDependencies"))[7] > 100,
"yay, we got that module's dependencies from the second mirror");
eq_or_diff($stdout, '', "Nothing on STDOUT");
eq_or_diff($stderr, '', "Nothing on STDERR");
note("List modules again");
t/cpandeps-diff-script.t view on Meta::CPAN
close($fh);
($stdout, $stderr) = capture { system( @default_cmd, @mirror, qw(mirror DEFAULT report CPAN::FindDependencies) ) };
like($stdout, qr{\|this isn't a real dep, LOL\s+\*\s+\|\s+\|}, "Differences found");
eq_or_diff($stderr, '', "Nothing on STDERR");
my $prev_size = (stat(".cpandeps-diff/5.30.3/Brewery"))[7];
($stdout, $stderr) = capture { system( @default_cmd, @mirror, qw(mirror DEFAULT report Brewery) ) };
ok((stat(".cpandeps-diff/5.30.3/Brewery"))[7] != $prev_size,
"And a module with deps on both mirrors got spotted too");
};
done_testing();
view release on metacpan or search on metacpan
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.
view release on metacpan or search on metacpan
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.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# 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 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
view release on metacpan or search on metacpan
data/tiddlers.json view on Meta::CPAN
"modified": "20260320213617000",
"created": "20241015223904337"
},
{
"created": "20220512065825359",
"text": "\"\"\"\no See also:\n- ArchiveFiles\n- CryptoStuff - For App::xsum, File::Digest\n- DataTraversal - For BOM & CSV handling\n- EventStuff\n- LinuxOS\n- ModuleBuilding - For more stat & lstat stuff\n- RegexpStuff\n- RfcGuide\n- [[SSH]]...
"title": "FileHandling",
"modified": "20260405064130713"
},
{
"text": "\"\"\"\no App::findeps:\n- the Module to find dependencies for files you've selected\n- https://metacpan.org/pod/App::findeps\n\no Module::ScanDeps:\n- Recursively scan Perl code for dependencies\n- https://metacpan.org/pod/Module::S...
view release on metacpan or search on metacpan
lib/CPAN/Metadata/RDF.pm view on Meta::CPAN
my $t = File::Type->new;
my $format = $t->mime_type($path);
my ($dist, $version) = $self->extract_name_version($distversion);
my $stat = stat($path);
my $datetime = DateTime->from_epoch(epoch =>$stat->mtime)->datetime;
my $filesize = $stat->size;
my $mirrored = "0";
$mirrored = "1" if exists $mirrored{$suffix};
view release on metacpan or search on metacpan
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.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# 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 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# 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 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
view release on metacpan or search on metacpan
inc/File/Copy/Recursive.pm view on Meta::CPAN
copy(@_) or return;
my @base_file = File::Spec->splitpath($_[0]);
my $mode_trg = -d $_[1] ? File::Spec->catfile($_[1], $base_file[ $#base_file ]) : $_[1];
chmod scalar((stat($_[0]))[2]), $mode_trg if $KeepMode;
}
return wantarray ? (1,0,0) : 1; # use 0's incase they do math on them and in case rcopy() is called in list context = no uninit val warnings
}
sub rcopy {
inc/File/Copy/Recursive.pm view on Meta::CPAN
$filen++ if $end eq $baseend;
$dirn++ if $end eq $baseend;
$DirPerms = oct($DirPerms) if substr($DirPerms,0,1) eq '0';
mkdir($end,$DirPerms) or return if !-d $end;
chmod scalar((stat($str))[2]), $end if $KeepMode;
if($MaxDepth && $MaxDepth =~ m/^\d+$/ && $level >= $MaxDepth) {
return ($filen,$dirn,$level) if wantarray;
return $filen;
}
$level++;
inc/File/Copy/Recursive.pm view on Meta::CPAN
}
else {
fcopy($org,$new,$buf) or return if defined $buf;
fcopy($org,$new) or return if !defined $buf;
}
chmod scalar((stat($org))[2]), $new if $KeepMode;
$filen++;
}
}
}
1;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# 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 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
view release on metacpan or search on metacpan
lib/CPAN.pm view on Meta::CPAN
sub _perl_fingerprint {
my($self,$other_fingerprint) = @_;
my $dll = eval {OS2::DLLname()};
my $mtime_dll = 0;
if (defined $dll) {
$mtime_dll = (-f $dll ? (stat(_))[9] : '-1');
}
my $mtime_perl = (-f CPAN::find_perl ? (stat(_))[9] : '-1');
my $this_fingerprint = {
'$^X' => CPAN::find_perl,
sitearchexp => $Config::Config{sitearchexp},
'mtime_$^X' => $mtime_perl,
'mtime_dll' => $mtime_dll,
};
if ($other_fingerprint) {
if (exists $other_fingerprint->{'stat($^X)'}) { # repair fp from rev. 1.88_57
$other_fingerprint->{'mtime_$^X'} = $other_fingerprint->{'stat($^X)'}[9];
}
# mandatory keys since 1.88_57
for my $key (qw($^X sitearchexp mtime_dll mtime_$^X)) {
return unless $other_fingerprint->{$key} eq $this_fingerprint->{$key};
}