Result:
found more than 1303 distributions - search limited to the first 2001 files matching your query
( run in 1.219 )
Convert-GeekCode
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 }
Convert-Morse
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.
Convert-Number-Armenian
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 }
Cookie-XS
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.
Cookie
view release on metacpan or search on metacpan
lib/Cookie/Domain.pm view on Meta::CPAN
=head1 SYNOPSIS
use Cookie::Domain;
my $dom = Cookie::Domain->new( min_suffix => 1, debug => 3 ) ||
die( Cookie::Domain->error, "\n" );
my $res = $dom->stat( 'www.example.or.uk' ) || die( $dom->error, "\n" );
# Check for potential errors;
die( $dom->error ) if( !defined( $res ) );
# stat() returns an empty string if nothing was found and undef upon error
print( "Nothing found\n" ), exit(0) if( !$res );
print( $res->domain, "\n" ); # example.co.uk
print( $res->name, "\n" ); # example
print( $res->sub, "\n" ); # www
print( $res->suffix, "\n" ); # co.uk
lib/Cookie/Domain.pm view on Meta::CPAN
=item C<undef()>
If an error occurred.
my $rv = $d->stat( 'www.example.org' );
die( "Error: ", $d->error ) if( !defined( $rv ) );
=item empty string
If there is no data available such as when querying a non existing top level domain.
lib/Cookie/Domain.pm view on Meta::CPAN
The label that immediately follows the suffix (i.e. on its lefthand side).
For example, in C<www.example.org>, the I<name> would be C<example>
my $res = $dom->stat( 'www.example.org' ) || die( $dom->error );
say $res->{name}; # example
# or alternatively
say $res->name; # example
=item I<sub>
The sub domain or sub domains that follows the domain on its lefthand side.
For example, in C<www.paris.example.fr>, C<www.paris> is the I<sub> and C<example> the I<name>
my $res = $dom->stat( 'www.paris.example.fr' ) || die( $dom->error );
say $res->{sub}; # www.paris
# or alternatively
say $res->sub; # www.paris
=item I<suffix>
The top level domain or I<suffix>. For example, in C<example.com.sg>, C<com.sg> is the suffix and C<example> the I<name>
my $res = $dom->stat( 'example.com.sg' ) || die( $dom->error );
say $res->{suffix}; # com.sg
# or alternatively
say $res->suffix; # com.sg
What constitute a suffix varies from zone to zone or country to country, hence the necessity of this public domain suffix data file.
=back
C<Cookie::Domain::Result> objects inherit from L<Module::Generic::Hash>, thus you can do:
my $res = $dom->stat( 'www.example.org' ) || die( $dom->error );
say $res->length, " properties set.";
# which should say 3 since we alway return suffix, name and sub
The following additional method is also available as a convenience:
lib/Cookie/Domain.pm view on Meta::CPAN
=item I<domain>
This is a read only method which returns and empty L<Module::Generic::Scalar> object if the I<name> property is empty, or the properties I<name> and I<suffix> join by a dot '.' and returned as a new L<Module::Generic::Scalar> object.
my $res = $dom->stat( 'www.example.com.sg' ) || die( $dom->error );
say $res->domain; # example.com.sg
say $res->domain->length; # 14
=back
Corona
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 }
CouchDB-Client
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 }
CouchDB-Deploy
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.
CouchDB-View
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.
Couchbase-Client
view release on metacpan or search on metacpan
xs/perl-couchbase-async.h view on Meta::CPAN
Operation requests will involve a user-defined 'opaque' data object (SV*),
and is asynchronously batched to libcouchbase_* functions.
The cookies for these functions are special. A cookie will have a hashref
in which it will store a Couchbase::Client::Return object for each key.
(in the case of stat(), which is only a single command, a pseudo-key will be
used TBC..)
Additionally, the cookie will have a counter which will decrement for each
response received. When the counter reaches 0, it means all the responses have
been received.
Crypt-Cracklib
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 }
Crypt-DH-GMP
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 }
Crypt-DH
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 }
Crypt-GpgME
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 }
Crypt-License
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;
Crypt-MatrixSSL
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) {
Crypt-MatrixSSL3
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";
Crypt-Mimetic
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;
Crypt-NSS-X509
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 }
Crypt-Password
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 }
Crypt-RHash
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: $!";
}
Crypt-RSA
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.
Crypt-Random-Source-Strong-Win32
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 }
Crypt-Rhash
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: $!";
}
Crypt-SMIME
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,
Crypt-SecurID
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
Crypt-Util
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 }
Crypt-XKCDCommon1949
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 }
Csistck
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 }
CtCmd
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 );
( run in 1.219 second using v1.01-cache-2.11-cpan-49f99fa48dc )