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
# 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/App/LXC/Container/Update.pm view on Meta::CPAN
foreach (@paths)
{
-e $_ or fatal('_1_does_not_exist', $path);
my $target = $root . $_;
next if -e $target;
my $stat = stat($_);
my ($mode, $uid, $gid) = ($stat->mode, $stat->uid, $stat->gid);
if (-d)
{
$mode |= 0200; # prevent blocking ourselves later on
if (-l)
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/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
# 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/App/MBUtiny/Util.pm view on Meta::CPAN
if (-d $f) {
my $end = File::Spec->catdir($tg, $p);
print ">D $f -> $end\n" if $DEBUG;
unless (-e $end) {
mkdir($end,DIRMODE) or carp(sprintf("Can't create directoy \"%s\": ", $end, $!)) && return;
chmod scalar((stat($f))[2]), $end;
}
} else {
my $end = File::Spec->catfile($tg, $p);
print ">F $f -> $end\n" if $DEBUG;
unless (-e $end) {
copy($f,$end) or carp(sprintf("Copy failed \"%s\" -> \"%s\": %s", $f, $end, $!)) && return;
chmod scalar((stat($f))[2]), $end;
}
}
}
},
no_chdir => 1,
view release on metacpan or search on metacpan
bin/mfile-www view on Meta::CPAN
my ( $old, $new ) = @_;
die "Need to be root to create symlink" unless $sharedir_writable;
my ( undef, $path, $file ) = File::Spec->splitpath( $new );
make_path( $path );
symlink( $old, $new ) ;
if ( ! stat( $new ) ) {
unlink( $new );
die "Could not create symlink $old -> $new";
}
return;
}
view release on metacpan or search on metacpan
lib/App/MHFS.pm view on Meta::CPAN
say "SLF: open failed";
$self->Send404;
return;
}
binmode($FH);
my $st = stat($FH);
if(! $st) {
$self->Send404();
return;
}
$currentsize = $st->size;
lib/App/MHFS.pm view on Meta::CPAN
# setup callback for retrieving current file size if we are following the file
if($fileitem{'fh'}) {
if(! $done) {
$get_current_size = sub {
return stat($fileitem{'fh'})
};
}
my $get_read_filesize = sub {
my $maxsize = $get_max_size->();
lib/App/MHFS.pm view on Meta::CPAN
# read the directory tree from desk and store
# this assumes filenames are UTF-8ish, the octlets will be the actual filename, but the printable filename is created by decoding it as UTF-8
sub BuildLibrary {
my ($path) = @_;
my $statinfo = stat($path);
return undef if(! $statinfo);
my $basepath = basename($path);
my $utf8name = get_printable_utf8($basepath);
if(!S_ISDIR($statinfo->mode)){
lib/App/MHFS.pm view on Meta::CPAN
say "cl is $cl";
UNLOCK_WRITE($filename);
LOCK_WRITE($filename, $cl);
# make sure the file exists and within our parameters
my $st = stat($filename);
$st or return;
my $minsize = 16384;
$minsize = $cl if($cl < $minsize);
return if($st->size < $minsize);
say "sending, currentsize " . $st->size . ' totalsize ' . $cl;
view release on metacpan or search on metacpan
lib/App/MaMGal/Entry.pm view on Meta::CPAN
sub fresher_than_me
{
my $self = shift;
my $path = shift;
my %opts = @_;
my $stat = stat($path) or return 0;
return 1 if $stat->mtime >= $self->content_modification_time(%opts);
return 0;
}
# Whether this entry should be shown in a directory contents montage
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
$self->{version}=$VERSION;
$self->dirty;
$self;
}
sub xlstat($) {
my @stat = lstat $_[0];
@stat ?
{
path => $_[0],
dev => $stat[ 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
lib/App/MonM/Notifier/Monotifier.pm view on Meta::CPAN
# DB status
printf("DB DSN : %s\n", $store->dsn);
printf("DB status : %s\n", $store->error ? red("ERROR") : green("OK"));
my $db_is_ok = $store->error ? 0 : 1;
if ($db_is_ok && $store->{file} && -e $store->{file}) {
my $s = File::stat::stat($store->{file})->size;
printf("DB file : %s\n", $store->{file});
printf("DB size : %s\n", sprintf("%s (%d bytes)", _fbytes($s), $s));
printf("DB modified : %s\n", _fdate(File::stat::stat($store->{file})->mtime || 0));
}
$self->raise($store->error) unless $db_is_ok;
return 1;
});
view release on metacpan or search on metacpan
lib/App/MonM.pm view on Meta::CPAN
# DB status
printf("DB DSN : %s\n", $store->dsn);
printf("DB status : %s\n", $store->error ? red("ERROR") : green("OK"));
my $db_is_ok = $store->error ? 0 : 1;
if ($db_is_ok && $store->{file} && -e $store->{file}) {
my $s = File::stat::stat($store->{file})->size;
printf("DB file : %s\n", $store->{file});
printf("DB size : %s\n", sprintf("%s (%d bytes)", _fbytes($s), $s));
printf("DB modified : %s\n", _fdate(File::stat::stat($store->{file})->mtime || 0));
}
$self->raise($store->error) unless $db_is_ok;
# Checkets
my @checkits = getCheckitByName($self->config("checkit"));
view release on metacpan or search on metacpan
lib/App/Mowyw.pm view on Meta::CPAN
# print +($process ? '' : 'not '), "processing file $fn\n";
if ($process){
if ($config{make_behaviour} and -e $new_fn and (stat($fn))[9] < (stat($new_fn))[9]){
return;
}
print STDERR "Processing File '$fn'..." unless $config{quiet};
my $metadata = get_meta_data($fn);
view release on metacpan or search on metacpan
lib/App/MtAws/Command/Sync.pm view on Meta::CPAN
sub is_mtime_differs
{
my ($options, $journal_file, $absfilename) = @_;
my $mtime_differs = $options->{detect} =~ /(^|[-_])mtime([-_]|$)/ ? # don't make stat() call if we don't need it
defined($journal_file->{mtime}) && file_mtime($absfilename) != $journal_file->{mtime} :
undef;
}
# implements a '--detect' logic for file (with check of file size and mtime)
view release on metacpan or search on metacpan
lib/App/MultiModule.pm view on Meta::CPAN
if($args{config_file}) {
$self->recur(repeat_interval => 1, work => sub {
eval {
die "App::MultiModule::new failed: optional passed argument config_file($args{config_file}) must either be a scalar and exist and be readable"
if ref $args{config_file} or not -r $args{config_file};
my $ctime = (stat($args{config_file}))[9];
$self->{last_config_stat} = 0
unless defined $self->{last_config_stat};
die "all good\n" if $ctime == $self->{last_config_stat};
$self->{last_config_stat} = $ctime;
$self->log("reading config from $args{config_file}");
lib/App/MultiModule.pm view on Meta::CPAN
#first: 'flush' all of the internal queues
for(1..5) { #lolwut
foreach my $task_name (@all_tasks) {
next unless $self->{tasks}->{$task_name};
IPC::Transit::local_queue(qname => $task_name);
my $stats = IPC::Transit::stat(
qname => $task_name,
override_local => _receive_mode_translate('local'));
next unless $stats->{qnum}; #nothing to receive
while( my $message = IPC::Transit::receive(
qname => $task_name,
lib/App/MultiModule.pm view on Meta::CPAN
sub _receive_messages_from {
my $self = shift;
my $qname = shift; my $receive_mode = shift;
my %args = @_;
IPC::Transit::local_queue(qname => $qname);
my $stats = IPC::Transit::stat(
qname => $qname,
override_local => _receive_mode_translate($receive_mode));
return unless $stats->{qnum}; #nothing to receive
#at this point, there are one or more messages for us to receive
#we can only deliver messages to tasks that are loaded AND configured
view release on metacpan or search on metacpan
lib/ChordPro/Delegate/ABC.pm view on Meta::CPAN
print => sub { push( @lines, split(/\n/, $_) ) for @_ },
printErr => sub { print STDERR @_ },
quit => sub { exit 66 },
readFile => sub { slurp($_[0]) },
get_mtime => sub {
my @stat = stat($_[0]);
return @stat ? 1000*$stat[9] : undef;
},
loadjs => sub {
my ( $fn, $relay, $onerror ) = @_;
if ( -s -r "$base/$fn" ) {
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
public/javascripts/ace/mode-php.js view on Meta::CPAN
"fsockopen": [
"resource fsockopen(string hostname, int port [, int errno [, string errstr [, float timeout]]])",
"Open Internet or Unix domain socket connection"
],
"fstat": [
"array fstat(resource fp)",
"Stat() on a filehandle"
],
"ftell": [
"int ftell(resource fp)",
"Get file pointer's read/write position"
public/javascripts/ace/mode-php.js view on Meta::CPAN
"long2ip": [
"string long2ip(int proper_address)",
"Converts an (IPv4) Internet network address into a string in Internet standard dotted format"
],
"lstat": [
"array lstat(string filename)",
"Give information about a file or symbolic link"
],
"ltrim": [
"string ltrim(string str [, string character_mask])",
"Strips whitespace from the beginning of a string"
public/javascripts/ace/mode-php.js view on Meta::CPAN
"mysql_set_charset": [
"bool mysql_set_charset(string csname [, int link_identifier])",
"sets client character set"
],
"mysql_stat": [
"string mysql_stat([int link_identifier])",
"Returns a string containing status information"
],
"mysql_thread_id": [
"int mysql_thread_id([int link_identifier])",
"Returns the thread id of current connection"
public/javascripts/ace/mode-php.js view on Meta::CPAN
"mysqli_ssl_set": [
"bool mysqli_ssl_set(object link ,string key ,string cert ,string ca ,string capath ,string cipher])",
""
],
"mysqli_stat": [
"mixed mysqli_stat(object link)",
"Get current system status"
],
"mysqli_stmt_affected_rows": [
"mixed mysqli_stmt_affected_rows(object stmt)",
"Return the number of rows affected in the last query for the given link"
public/javascripts/ace/mode-php.js view on Meta::CPAN
"sscanf": [
"mixed sscanf(string str, string format [, string ...])",
"Implements an ANSI C compatible sscanf"
],
"stat": [
"array stat(string filename)",
"Give information about a file"
],
"str_getcsv": [
"array str_getcsv(string input[, string delimiter[, string enclosure[, string escape]]])",
"Parse a CSV string into an array"
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/App/Netdisco/AnyEvent/Nbtstat.pm view on Meta::CPAN
my $request = App::Netdisco::AnyEvent::Nbtstat->new();
my $cv = AE::cv;
$request->nbtstat(
'127.0.0.1',
sub {
my $result = shift;
print "MAC: ", $result->{'mac_address'} || '', " ";
print "Status: ", $result->{'status'}, "\n";
lib/App/Netdisco/AnyEvent/Nbtstat.pm view on Meta::CPAN
L<App::Netdisco::AnyEvent::Nbtstat> implements the following methods.
=head2 C<nbtstat>
$request->nbtstat($ip, sub {
my $result = shift;
});
Perform a NetBIOS node status request of $ip.
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 }