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
my ($user,$grp,$pwd);
$user_info = sub {
($pwd) = @_;
$user = (getpwuid( (stat($pwd))[4] ))[0];
$grp = (getgrgid( (stat($pwd))[5] ))[0];
my $i;
if ( $pwd !~ m|^/| ) {
$i = `/bin/pwd`;
$i =~ s/\s+//g;
$pwd = $i .'/'. $pwd;
view release on metacpan or search on metacpan
matrixssl-1-8-6-open/examples/httpsReflector.c view on Meta::CPAN
*bin = NULL;
if (fileName == NULL) {
return -1;
}
if ((stat(fileName, &fstat) != 0) || (fp = fopen(fileName, "rb")) == NULL) {
return -7; /* FILE_NOT_FOUND */
}
*bin = malloc(fstat.st_size);
if (*bin == NULL) {
view release on metacpan or search on metacpan
script/mk-ca-bundle.pl view on Meta::CPAN
. ($resp? $resp->code . ' - ' . $resp->message : "LWP failed");
exit 1 if -e $crt || ! -r $txt;
}
}
my $filedate = $resp ? $resp->last_modified : (stat($txt))[9];
my $datesrc = "as of";
if(!$filedate) {
# mxr.mozilla.org gave us a time, hg.mozilla.org does not!
$filedate = time();
$datesrc="downloaded on";
view release on metacpan or search on metacpan
lib/Crypt/Mimetic.pm view on Meta::CPAN
my (@dirs, %algo);
my $wanted = sub {
my ($dev,$ino,$mode,$nlink,$uid,$gid);
/^Mimetic\z/os &&
(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
-d _ &&
push(@dirs,"$name");
};
# Traverse desired filesystems
lib/Crypt/Mimetic.pm view on Meta::CPAN
$wanted = sub {
my ($dev,$ino,$mode,$nlink,$uid,$gid);
/^.*\.pm\z/os &&
(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
-f _ || return;
s/^(.+)\.pm$/$1/o;
$algo{$_} = $_;
};
lib/Crypt/Mimetic.pm view on Meta::CPAN
=cut
sub Sign {
my ($original_file,$mask_file,$dlen,$algorithm,$key,@info) = @_;
my $mlen = (stat($mask_file))[7];
my $sign = join "\0", "Mimetic", $VERSION, $mask_file, $mlen, $original_file, $dlen, @info;
$sign = EncryptString($sign,$algorithm,$key,@info);
my $slen = pack "a8", sprintf "%x", length($sign);
my $algo = pack "A32", $algorithm;
return join '', $sign, ~$algo, ~$slen;
lib/Crypt/Mimetic.pm view on Meta::CPAN
=cut
sub GetSignInfo {
my ($mimetic_file) = @_;
my $len = (stat($mimetic_file))[7];
my $offset = $len - 40;
open (FH, "$mimetic_file") or throw Error::Mimetic "Cannot open $mimetic_file: $!";
my ($algo,$slen) = ("","");
seek FH, $offset, 0;
read FH, $algo, 32;
lib/Crypt/Mimetic.pm view on Meta::CPAN
=cut
sub ParseSign {
my ($mimetic_file,$slen,$algorithm,$key,@info) = @_;
my $len = (stat($mimetic_file))[7];
my $offset = $len - 40 - $slen;
open (FH, "$mimetic_file") or throw Error::Mimetic "Cannot open $mimetic_file: $!";
my $sign = "";
seek FH, $offset, 0;
read FH, $sign, $slen;
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
Makefile.PL view on Meta::CPAN
closedir $dh;
for (@files) {
my ($from, $to) = ("$from_dir/$_", "_$_");
push @result, $to;
my ($df, $dt) = ((stat($from))[9], (stat($to))[9]);
next if(defined($dt) && defined($df) && $dt >= $df);
#print "copy $from -> $to\n";
copy($from, $to)
or die "Can't copy $from to $to: $!";
}
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
Makefile.PL view on Meta::CPAN
closedir $dh;
for (@files) {
my ($from, $to) = ("$from_dir/$_", "_$_");
push @result, $to;
my ($df, $dt) = ((stat($from))[9], (stat($to))[9]);
next if(defined($dt) && defined($df) && $dt >= $df);
#print "copy $from -> $to\n";
copy($from, $to)
or die "Can't copy $from to $to: $!";
}
view release on metacpan or search on metacpan
X509_STORE_free(store);
croak("Crypt::SMIME#setPublicKeyStore: ARG[%d] is non-string value", i);
}
pathname = (char *)SvPV_nolen(ST(i));
if (stat(pathname, &bufstat) != 0) {
X509_STORE_free(store);
croak("Crypt::SMIME#setPublicKeyStore: cannot stat %s",
pathname);
} else if (bufstat.st_mode & S_IFDIR) {
if (!X509_LOOKUP_add_dir(lookup_path, pathname,
view release on metacpan or search on metacpan
securid.cpp view on Meta::CPAN
SID_OCTET data[5];
char outs[80], *s;
unsigned int l;
// stat and bail if file exists
if (!stat(f, &statbuf)) {
sprintf(errmsg, "Cannot export to existing file: '%s'.", f);
return 0;
}
// open file, creating if necessary
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
ClearCase::CtCmd::exec() takes either a string or a list as an input argument, and, in array context, returns a three element Perl array as output.
The first output element is a status bit containing 0 on success, 1 on failure.The second output element is a scalar string corresponding to stdout, if any. The third element contains any error message corresponding to output on stderr.
In scalar context, ClearCase::CtCmd::exec() returns output corresponding to either stdout or stderr, as appropriate. ClearCase::CtCmd::cmdstat() will return 0 upon success, 1 upon failure of the last previous command.
ClearCase::CtCmd->new() may be used to create an instance of ClearCase::CtCmd. There are three possible construction variables:
ClearCase::CtCmd->new(outfunc=>0,errfunc=>0,debug=>1);
($a,$b,$c) = ClearCase::CtCmd::exec( some command );
the first returned element $a contains the status of "some command": 0 upon success, 1 upon failure.
In scalar context ClearCase::CtCmd::cmdstat() will return 0 upon success, 1 upon failure of the last previous command.
Upon the return of instance method exec:
$x = ClearCase::CtCmd-new; $x->exec( some command );
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# This helps us to minimize the effect of the .exists files A yet
# better solution would be to have a stable file in the perl
# distribution with a timestamp of zero. But this solution doesn't
# need any changes to the core distribution and works with older perls
EQUALIZE_TIMESTAMP = $(PERL) -we 'open F, ">$$ARGV[1]"; close F;' \
-e 'utime ((stat("$$ARGV[0]"))[8,9], $$ARGV[1])'
# Here we warn users that an old packlist file was found somewhere,
# and that they should call some uninstall routine
WARN_IF_OLD_PACKLIST = $(PERL) -we 'exit unless -f $$ARGV[0];' \
-e 'print "WARNING: I have found an old package in\n";' \
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
example/file.pl view on Meta::CPAN
# Returns a string showing the entry permissions (a la ls -l)
#
# Usage: $mode = transmode($file);
my $file = shift;
my $stat = (stat($file))[2];
my $mode = defined $stat ? sprintf('%04o', $stat & 07777) : '0000';
my @ebits = qw(r w x);
my @bits = (4, 2, 1);
my ($digit, $i, $rv);
view release on metacpan or search on metacpan
lib/Cyrillic.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Cyrillic.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Cyrillic::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
view release on metacpan or search on metacpan
lib/D64/Disk/Image.pm view on Meta::CPAN
die "$name file does not exist" unless -e $name;
open PRG, '<:bytes', $name or die "Couldn't open $name file for reading";
# Write data to file:
my $buffer;
my $filesize = (stat($name))[7];
sysread PRG, $buffer, $filesize;
my $size = $prg->write($buffer);
printf "Wrote %d bytes to %s\n", $size, $disk_3;
# Close files:
view release on metacpan or search on metacpan
t/02-inherit.t view on Meta::CPAN
#########################
{
my $diskLayoutObj = D64::MyLayout->new();
my $filename = tmpnam() . '.d64';
my $saveOK = $diskLayoutObj->save_as($filename);
my $mtime_create = (stat($filename))[9];
sleep 2;
$diskLayoutObj = D64::MyLayout->new($filename);
$saveOK = $diskLayoutObj->save();
my $mtime_modify = (stat($filename))[9];
cmp_ok($mtime_create, '!=', $mtime_modify, 'save - overwrite file loaded during object instance initialization');
unlink($filename);
}
#########################