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/CAD/Format/STL.pm view on Meta::CPAN
my $buf; read($fh, $buf, 4) or die;
unpack('L', $buf);
};
$@ and return 'ascii'; # if we hit eof, it can't be binary
$count or die "detection failed - no facets?";
my $size = (stat($fh))[7];
# calculate the expected file size
my $expect =
+ 80 # header
+ 4 # count
+ $count * (
view release on metacpan or search on metacpan
lib/CAD/Mesh3D/FormatSTL.pm view on Meta::CPAN
my $buf; read($fh, $buf, 4) or die;
unpack('L', $buf);
};
$@ and return 'ascii'; # if we hit eof, it can't be binary
$count or die "detection failed - no facets?";
my $size = (stat($fh))[7];
# calculate the expected file size
my $expect =
+ 80 # header
+ 4 # count
+ $count * (
view release on metacpan or search on metacpan
lib/CAM/SQLManager.pm view on Meta::CPAN
local $/ = undef;
$self->{sql} = <FILE>;
close(FILE);
# Record the last-mod time of the file so we can notice if it changes
$self->{filetime} = (stat($self->{filename}))[9];
# Set up the statistics data structures
if (!exists $global_stats{cmds}->{$self->{cmd}})
{
# Any changes to this data structure should be propagated into
lib/CAM/SQLManager.pm view on Meta::CPAN
if (-e File::Spec->catfile($global_directory, $cmd))
{
if (exists $global_cache{$cmd})
{
# Check to make sure the SQL file has not changed
if ($global_cache{$cmd}->{filetime} < (stat($global_cache{$cmd}->{filename}))[9])
{
$global_cache{$cmd} = $pkg->new($cmd, @args);
}
}
else
view release on metacpan or search on metacpan
lib/CAM/Template.pm view on Meta::CPAN
$global_filecache{$pkg} ||= {};
$cache = $global_filecache{$pkg};
}
if ($self->{use_cache} && exists $cache->{$filename} &&
$cache->{$filename}->{time} >= (stat($filename))[9])
{
return $cache->{$filename};
}
else
{
lib/CAM/Template.pm view on Meta::CPAN
$struct->{string} =~ s/$re/ $self->_fetchfile("$dir$1")->{string} /ge;
}
if ($self->{use_cache})
{
$struct->{time} = (stat($filename))[9];
$cache->{$filename} = $struct;
}
return $struct;
}
}
view release on metacpan or search on metacpan
CDB_File.xs view on Meta::CPAN
{
struct stat st;
int fd = PerlIO_fileno(f);
RETVAL->map = 0;
if (fstat(fd, &st) == 0) {
if (st.st_size <= 0xffffffff) {
char *x;
x = mmap(0, st.st_size, PROT_READ, MAP_SHARED, fd, 0);
if (x != (char *)-1) {
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
MapDisp2.pm view on Meta::CPAN
"]) Copy failed from $f1 to $f2: $!",0);
return;
}
opendir DD, "$bdr" or croak "ERR: ($prg) could not opendir - $bdr: $!\n";
my @a = sort { (stat("$bdr/$a"))[9] <=> (stat("$bdr/$b"))[9] }
(grep { /$fname/ && !/^\./ } readdir DD);
closedir DD;
my $n = 0;
my ($m) = ($a[$#a] =~ /\.(\d+)$/);
view release on metacpan or search on metacpan
lib/CGI/AppToolkit/Template.pm view on Meta::CPAN
if (!$self->{'cache'}
||
(!$CACHE{$template_file_orig})
||
((stat(_))[9] != $CACHE{$template_file_orig}[0])) {
my $template_file = '';
if ($template_file_orig !~ m{/}) {
foreach my $dir (@PATH) {
if (-d $dir && (-e "$dir/$template_file_orig" || -e "$dir/$template_file_orig.tmpl")) {
lib/CGI/AppToolkit/Template.pm view on Meta::CPAN
$self->_load_vars unless $self->{'vars-loaded'};
# MAKE PATH FULL HERE
$CACHE{$template_file} = [
(stat(_))[9],
$self->{'template'},
$self->{'vars'}
] if $self->{'cache'};
} else {
lib/CGI/AppToolkit/Template.pm view on Meta::CPAN
#-------------------------
sub check_cache {
my($self) = shift;
if (($self->{'file-name'}) && ((stat($self->{'file-name'}))[9] != $self->{'file-date'})) {
$self->load($self->{'file-name'});
return 1;
}
0
}
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
# 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
CaptureIO.pm view on Meta::CPAN
if($self->{__CAP_CAPTUREIO_CONFIG}->{CAPTURE_CLEAR}){
# capture auto clear
find(sub {
my $ttl = $self->{__CAP_CAPTUREIO_CONFIG}->{CAPTURE_TTL};
my $st = stat($_);
if(-d $_ && (time - $st->atime) > $ttl){
rmtree($File::Find::dir, 0);
}elsif(-e $_ && -B $_){
if($_ =~ /^$CAPTURE_PREFIX/ && (time - $st->atime) > $ttl){
CaptureIO.pm view on Meta::CPAN
my $capture_dir = _capture_dir($self);
my $capture = File::Spec->catfile($capture_dir, $CAPTURE_PREFIX . $digest);
if(-e $capture && -B $capture){
my $st = stat($capture);
if((time - $st->mtime) <= $ttl){
my $ref = Storable::retrieve($capture);
$self->run_modes( $CAPTURE_MODE => sub {
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
# 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/CGI/Application/Plugin/Stream.pm view on Meta::CPAN
sub stream_file {
my ( $self, $file_or_fh, $bytes ) = @_;
$bytes ||= 1024;
my ($fh, $basename);
my $size = (stat( $file_or_fh ))[7];
# If we have a file path
if ( ref( \$file_or_fh ) eq 'SCALAR' ) {
# They passed along a scalar, pointing to the path of the file
# So we need to open the file
view release on metacpan or search on metacpan
lib/CGI/Application/Search.pm view on Meta::CPAN
return [];
}
# if we are going to use the cache (meaning we want to use
# it and there's up-to-date data in there)
my $file_mod_time = (stat($file))[9];
if ( $want_to_cache
and @SUGGEST_CACHE
and $SUGGEST_CACHE_TIME >= $file_mod_time)
{
foreach my $cached (@SUGGEST_CACHE) {
view release on metacpan or search on metacpan
lib/CGI/Application/Util/Diff.pm view on Meta::CPAN
my($stat);
for my $file_name (@file_name)
{
$name = file($dir_name, $file_name);
$stat = stat($name);
$file_name{$file_name} =
{
mtime => scalar localtime($stat -> mtime() ),
size => $stat -> size(),
type => -d $name ? 'Dir' : 'File',
view release on metacpan or search on metacpan
lib/CGI/Buffer.pm view on Meta::CPAN
unless(defined($path)) {
croak 'Failed to retrieve script path';
return;
}
my @statb = stat($path);
$script_mtime = $statb[9]; # Set script_mtime to the modification time of the script
return $script_mtime;
}
sub _should_gzip
view release on metacpan or search on metacpan
lib/CGI/Bus/fut.pm view on Meta::CPAN
$sub =$dir; next
}
my $fs;
foreach my $elem ($s->glob($dir)) {
$_ =$elem;
my @stat =stat($elem);
my @nme =(/^(.*)[\/\\]([^\/\\]+)$/ ? ($1,$2) : ('',''));
if (@stat ==0 && ($opt =~/[^!]*i/i || ($^O eq 'MSWin32' && $elem =~/[\?]/i))) {next} # bug in stat!
elsif (@stat ==0) {die("stat('$elem'): $!\n"); undef($_); return(0)}
elsif ($stat[2] & 0120000 && $opt =~/!.*s/i) {next} # symlink
elsif (!defined($fs)) {$fs =$stat[2]}
elsif ($fs !=$stat[2] && $opt =~/!.*m/i) {next} # mountpoint?
if ($stat[2] & 0040000 && $opt =~/!.*l/i) { # finddepth
$ret +=$s->find($opt, "$elem/*", $sub); defined($_) || return(0);
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
sub set_defaults
{
my $module_name = $Module;
$module_name =~ s/::/-/g;
my $uid = (stat( $0 ))[4];
my $user = getpwuid($uid);
### Control to
#
my %default_to = (
view release on metacpan or search on metacpan
examples/p5httpd view on Meta::CPAN
my ( $file, $mimetype, $method ) = @_;
$method = "GET" unless $method;
my $fullpath = "$server_root$file";
my ( undef, undef, undef, undef, undef, undef, undef, $length, undef, $mtime )
= stat($fullpath);
$mtime = gmtime $mtime;
my ( $day, $mon, $dm, $tm, $yr ) =
( $mtime =~ m/(...) (...) (..) (..:..:..) (....)/ );
print Client "Content-length: $length\n";
view release on metacpan or search on metacpan
lib/CGI/FileManager.pm view on Meta::CPAN
push @files, {
filename => $f,
filetype => $self->_file_type($full),
subdir => -d $full,
zipfile => ($full =~ /\.zip/i ? 1 : 0),
filedate => scalar (localtime((stat($full))[9])),
size => (stat($full))[7],
delete_link => $f eq ".." ? "" : $self->_delete_link($full),
rename_link => $f eq ".." ? "" : $self->_rename_link($full),
workdir => $workdir,
};
}
view release on metacpan or search on metacpan
cgi/cgi-fileupload-manager.pl view on Meta::CPAN
foreach(@fus){
next unless $isAdmin || ($_->from_id() eq $id);
my $status=$_->upload_status();
print " <tr>\n";
print " <td>".$_->file_orig()."</td>\n";
print " <td>".(ctime((stat($_->file('.properties')))[9]))."</td>\n";
print " <td>$status</td>\n";
print " <td>".(($status eq 'completed')?(-s $_->file()):'n/a')."</td>\n";
print " <td>".$_->from_ipaddr()."</td>\n";
print " <td>".$_->from_id()."</td>\n" if $isAdmin;
print " <td align='center'><input type='checkbox' name='key' value='".$_->key()."'/></td></tr>\n";
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.