view release on metacpan or search on metacpan
t/data/cpanstats-test.json view on Meta::CPAN
{"test":{"count":{"entries":100,"reports":100,"posters":"182","distros":0},"pass":{"MacPPC":{"5.4.0":{"all":{"Net-Whois":1,"URI":1,"Storable":1,"Mac-Conversions":1,"Digest-MD5":1}}},"PA-RISC1.1":{"5.5.3":{"all":{"DBD-Oracle":1,"Curses":1}},"5.4.4":{"...
view release on metacpan or search on metacpan
lib/CPAN/Unpack.pm view on Meta::CPAN
sub fixme {
my $path = $_;
my $mode = ( stat($path) )[2];
if ( S_ISDIR($mode) ) {
chmod( ( S_IMODE($mode) | S_IRWXU ), $path )
unless ( ( $mode & S_IRWXU ) == S_IRWXU );
}
}
my $p = Parse::CPAN::Packages::Fast->new($packages_filename);
foreach my $distribution ( $p->latest_distributions ) {
view release on metacpan or search on metacpan
lib/CPAN/Visitor.pm view on Meta::CPAN
my $target_dir = $job->{result}{extract} or return;
if ( -d $target_dir ) {
unless ( -x $target_dir ) {
warn "Directory '$target_dir' missing +x; trying to fix it\n"
unless $job->{quiet};
chmod 0755, $target_dir;
}
chdir $target_dir;
}
else {
warn "Can't chdir to directory '$target_dir'\n"
view release on metacpan or search on metacpan
t/data/build.cloudweights.log view on Meta::CPAN
Checking if you have ExtUtils::MakeMaker 0 ... Yes (6.88)
Checking if you have Test::More 0 ... Yes (1.001002)
Building and testing Sub-Identify-0.04
cp lib/Sub/Identify.pm blib/lib/Sub/Identify.pm
Running Mkbootstrap for Sub::Identify ()
chmod 644 Identify.bs
/Users/garu/perl5/perlbrew/perls/perl-5.19.9/bin/perl5.19.9 /Users/garu/perl5/perlbrew/perls/perl-5.19.9/lib/5.19.9/ExtUtils/xsubpp -typemap /Users/garu/perl5/perlbrew/perls/perl-5.19.9/lib/5.19.9/ExtUtils/typemap Identify.xs > Identify.xsc && mv I...
cc -c -fno-common -DPERL_DARWIN -fno-strict-aliasing -pipe -fstack-protector -O3 -DVERSION=\"0.04\" -DXS_VERSION=\"0.04\" "-I/Users/garu/perl5/perlbrew/perls/perl-5.19.9/lib/5.19.9/darwin-2level/CORE" Identify.c
rm -f blib/arch/auto/Sub/Identify/Identify.bundle
env MACOSX_DEPLOYMENT_TARGET=10.3 cc -bundle -undefined dynamic_lookup -fstack-protector Identify.o -o blib/arch/auto/Sub/Identify/Identify.bundle \
\
chmod 755 blib/arch/auto/Sub/Identify/Identify.bundle
/Users/garu/perl5/perlbrew/perls/perl-5.19.9/bin/perl5.19.9 -MExtUtils::Command::MM -e 'cp_nonempty' -- Identify.bs blib/arch/auto/Sub/Identify/Identify.bs 644
Manifying blib/man3/Sub::Identify.3
Running Mkbootstrap for Sub::Identify ()
chmod 644 Identify.bs
PERL_DL_NONLAZY=1 /Users/garu/perl5/perlbrew/perls/perl-5.19.9/bin/perl5.19.9 "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/01basic.t ................ ok
t/02errors.t ............... ok
t/10pureperl-basic.t ....... ok
t/20attributes.t ........... ok
view release on metacpan or search on metacpan
script/cpan2aur view on Meta::CPAN
# Loads the last login username & session ID used.
sub _load_last_login
{
return () unless ( -f $CFGPATH );
die q{Please 'chmod 600 ~/.cpan2aur', it is not readable}
unless ( -r $CFGPATH );
my ($user, $sid);
open my $cfgfile, q{<}, $CFGPATH or die "open $CFGPATH: $!";
while (<$cfgfile>) {
view release on metacpan or search on metacpan
lib/CPANPLUS/Dist/Deb.pm view on Meta::CPAN
$fh->print( $content );
$fh->close;
### make sure it's set as +x
chmod 0755, $rules_file;
$dist->status->rules( $rules_file );
}
$dist->status->prepared(1);
view release on metacpan or search on metacpan
lib/CPANPLUS/Dist/Debora.pm view on Meta::CPAN
=item B<< Could not stat 'FILE' >>
File permissions could not be read.
=item B<< Could not chmod 'FILE' >>
File permissions could not be set.
=item B<< Could not remove 'FILE' >>
view release on metacpan or search on metacpan
lib/CPANPLUS/Dist/Slackware.pm view on Meta::CPAN
# Skip symbolic links.
return if -l _;
# Sanitize the file modes.
my $perm = ( $stat[2] & oct '0755' ) | oct '0200';
if ( !chmod $perm, $filename ) {
error( loc( q{Could not chmod '%1': %2}, $filename, $OS_ERROR ) );
++$fail;
}
if ( -d $filename ) {
view release on metacpan or search on metacpan
lib/CPANPLUS/YACSmoke/IniFiles.pm view on Meta::CPAN
rename( $new_file, $file ) || do {
carp "Unable to rename temp config file ($new_file) to $file: $!";
return undef;
};
if (exists $self->{file_mode}) {
chmod oct($self->{file_mode}), $file;
}
} # Otherwise, reset to the start of the file and write, unless we are using STDIN
else {
# Get a filehandle, allowing almost any type of 'file' parameter
view release on metacpan or search on metacpan
inc/bundle/Archive/Tar.pm view on Meta::CPAN
$tar->add_data('file/baz.txt', 'This is the contents now');
$tar->rename('oldname', 'new/file/name');
$tar->chown('/', 'root');
$tar->chown('/', 'root:root');
$tar->chmod('/tmp', '1777');
$tar->write('files.tar'); # plain tar
$tar->write('files.tgz', COMPRESS_GZIP); # gzip compressed
$tar->write('files.tbz', COMPRESS_BZIP); # bzip2 compressed
$tar->write('files.txz', COMPRESS_XZ); # xz compressed
inc/bundle/Archive/Tar.pm view on Meta::CPAN
if( $CHOWN && CAN_CHOWN->() and not -l $full ) {
CORE::chown( $entry->uid, $entry->gid, $full ) or
$self->_error( qq[Could not set uid/gid on '$full'] );
}
### only chmod if we're allowed to, but never chmod symlinks, since they'll
### change the perms on the file they're linking too...
if( $CHMOD and not -l $full ) {
my $mode = $entry->mode;
unless ($SAME_PERMISSIONS) {
$mode &= ~(oct(7000) | umask);
}
CORE::chmod( $mode, $full ) or
$self->_error( qq[Could not chown '$full' to ] . $entry->mode );
}
return 1;
}
inc/bundle/Archive/Tar.pm view on Meta::CPAN
my $entry = $self->_find_entry( $file ) or return;
return $entry->rename( $new );
}
=head2 $tar->chmod( $file, $mode )
Change mode of $file to $mode.
Returns true on success and false on failure.
=cut
sub chmod {
my $self = shift;
my $file = shift; return unless defined $file;
my $mode = shift; return unless defined $mode && $mode =~ /^[0-7]{1,4}$/;
my @args = ("$mode");
my $entry = $self->_find_entry( $file ) or return;
my $x = $entry->chmod( @args );
return $x;
}
=head2 $tar->chown( $file, $uname [, $gname] )
inc/bundle/Archive/Tar.pm view on Meta::CPAN
The default is C<1>.
=head2 $Archive::Tar::CHMOD
By default, C<Archive::Tar> will try to C<chmod> your files to
whatever mode was specified for the particular file in the archive.
In some cases, this may not be desired. In that case, set this
variable to C<0> to disable C<chmod>-ing.
The default is C<1>.
=head2 $Archive::Tar::SAME_PERMISSIONS
view release on metacpan or search on metacpan
lib/CPAN/Audit/DB.pm view on Meta::CPAN
use warnings;
our $VERSION = '20260705.001';
sub db {
{"dists" => {"ActivePerl" => {"advisories" => [{"affected_versions" => ["==5.16.1.1601"],"cves" => ["CVE-2012-5377"],"description" => "Untrusted search path vulnerability in the installation functionality in ActivePerl 5.16.1.1601, when installed in...
}
__PACKAGE__;
view release on metacpan or search on metacpan
docs/Install.pod view on Meta::CPAN
</VirtualHost>
=head2 Installing the HTML files
% cp -R setup/html /var/www/cpanxr.mycompany.com
% chmod -R 755 /var/www/cpanxr.mycompany.com
% chown nobody:nogroup /var/www/cpanxr.mycompany
Change the path I</var/www/cpanxr.mycompany.com> to whatever you specified in your httpd.conf. Change nobody:nogroup to the user and group that apache is configured to runs as.
=head2 Installing and configuring the config file
docs/Install.pod view on Meta::CPAN
=head2 Put some distributions in the XrRoot directory
The following assumes you have downloaded some Acme- modules and unpacked them into /var/cpan/
% cp -R /var/cpan/Acme-* /var/cpanxr/dists/
% chmod -R 755 /var/cpanxr/dists/
% chown -R nobody:nogroup /var/cpanxr/dists
=head2 Install the database
% mysql -uroot -p < setup/setup-mysql.sql
view release on metacpan or search on metacpan
lib/CSAF/Util/CWE.pm view on Meta::CPAN
'CWE-553' => q"Command Shell in Externally Accessible Directory",
'CWE-554' => q"ASP.NET Misconfiguration: Not Using Input Validation Framework",
'CWE-555' => q"J2EE Misconfiguration: Plaintext Password in Configuration File",
'CWE-556' => q"ASP.NET Misconfiguration: Use of Identity Impersonation",
'CWE-558' => q"Use of getlogin() in Multithreaded Application",
'CWE-560' => q"Use of umask() with chmod-style Argument",
'CWE-561' => q"Dead Code",
'CWE-562' => q"Return of Stack Variable Address",
'CWE-563' => q"Assignment to Variable without Use",
'CWE-564' => q"SQL Injection: Hibernate",
'CWE-565' => q"Reliance on Cookies without Validation and Integrity Checking",
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libfcgi-procmanager-perl", "FCGI-ProcManager", "0.18", "0", "0"
"libfeed-find-perl", "Feed-Find", "0.06", "0", "0"
"libfile-basedir-perl", "File-BaseDir", "0.03", "0", "0"
"libfile-bom-perl", "File-BOM", "0.14", "0", "0"
"libfile-changenotify-perl", "File-ChangeNotify", "0.10", "0", "0"
"libfile-chmod-perl", "File-chmod", "0.32", "0", "0"
"libfile-copy-recursive-perl", "File-Copy-Recursive", "0.38", "0", "0"
"libfile-counterfile-perl", "File-CounterFile", "1.04", "0", "0"
"libfile-desktopentry-perl", "File-DesktopEntry", "0.04", "1", "0"
"libfile-dircompare-perl", "File-DirCompare", "0.5", "0", "0"
"libfile-find-object-perl", "File-Find-Object", "0.2.1", "0", "0"
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
(ABSTRACT_FROM => 'SAC.pm', # retrieve abstract from module
AUTHOR => 'Robin Berjon') : ()),
LICENSE => 'perl',
'dist' => {
PREOP => 'chmod 600 Makefile.PL',
TARFLAGS => '--group=cpan --owner=bjoern -cvf',
},
);
view release on metacpan or search on metacpan
if (-e $file) {
mkpath(dirname("$tardir/$file"), 0, 0777);
print STDERR "copy $file $tardir/$file\n";
copy($file, "$tardir/$file");
if ($file =~ m/ (?: Build\.PL | Makefile\.PL ) \z/oxmsi) {
chmod(0664, "$tardir/$file");
}
elsif ($file =~ m/\. (?: pl | bat | exe | com ) \z/oxmsi) {
chmod(0775, "$tardir/$file");
}
elsif ($file =~ m{^bin/}oxmsi) {
chmod(0775, "$tardir/$file");
}
else {
chmod(0664, "$tardir/$file");
}
}
}
system(qq{tar -cvf $tardir.tar $tardir});
system(qq{gzip $tardir.tar});
else {
open(FH_TARBAT, '>ptar') || die "Can't open file: ptar\n";
print FH_TARBAT '#!', &which($^X), "\n";
print FH_TARBAT $ptar;
close FH_TARBAT;
chmod 0755, 'ptar';
}
}
# unzip and untar *.tar.gz
elsif ($target =~ /^xzvf$/) {
else {
open(FH_WGETBAT, '>pwget') || die "Can't open file: pwget\n";
print FH_WGETBAT '#!', &which($^X), "\n";
print FH_WGETBAT $pwget;
close FH_WGETBAT;
chmod 0755, 'pwget';
}
}
else {
warn "unknown target: $target.\n";
}
view release on metacpan or search on metacpan
lib/CTK/Command.pm view on Meta::CPAN
print STDERR "Can't create file $orig: $!\n";
return
};
my $perm = $fromstat[2] || 0;
$perm &= 07777;
eval { chmod $perm, $orig; };
if ($@) {
print STDERR $@, "\n"
} else {
print "ok\n";
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use constant DEPENDS => [
{
target => 'cvs2cl.pl',
reqs => [catfile(qw( bin cvs2cl ))],
rules => ['$(PERL) make-cvs2cl.pl $< > $@',
'$(PERL) -e "chmod 0755, @ARGV" $@',
],
},
{ target => 'test-pl',
env => { CVS2CL =>
view release on metacpan or search on metacpan
lib/CWB/CQI/Server.pm view on Meta::CPAN
my $fh = new FileHandle "> $passfile";
croak "Can't create temporary user list file. Aborting."
unless defined $fh;
print $fh "user $user \"$passwd\";\n";
$fh->close;
chmod 0600, $passfile; # so no one can spy on us
# scan for free port (using rand() so two servers invoked at the same time won't collide)
my $port = 10000 + int rand(2000);
my %in_use =
map {$_ => 1}
view release on metacpan or search on metacpan
lib/CWB/Web/Cache.pm view on Meta::CPAN
my $dir = $self->{'dir'};
my $index = $self->{'index'};
my $data = $self->{'data'};
unless (-d $dir) {
CWB::Shell::Cmd("mkdir $dir");
CWB::Shell::Cmd("chmod 777 $dir");
}
unless (-d $index) {
CWB::Shell::Cmd("mkdir $index");
CWB::Shell::Cmd("chmod 777 $index");
}
unless (-d $data) {
CWB::Shell::Cmd("mkdir $data");
CWB::Shell::Cmd("chmod 777 $data");
}
}
## INTERNAL: $cache->sweep_cache;
## check size of cache data directory and delete old files when it exceeds the limit
lib/CWB/Web/Cache.pm view on Meta::CPAN
my $unique = "$name-$ext";
my $unique_local = "$localname-$ext";
# now create empty index file to "lock" the unique name from other processes
my $fh = CWB::OpenFile "> $index/$unique";
$fh->close;
CWB::Shell::Cmd("chmod 666 $index/$unique");
# set DataDirectory in CQP session and re-activate base corpus
$cqp->exec("set DataDirectory '$data'");
$cqp->exec("$corpus");
# copy named query to unique name and store it in data directory
$cqp->exec("$unique_local = $name");
$cqp->exec("save $unique");
CWB::Shell::Cmd("chmod 666 $data/$unique");
# re-write index file if caller has passed metadata
if (@_) {
$fh = CWB::OpenFile "> $index/$unique";
while (@_) {
my $line = shift;
view release on metacpan or search on metacpan
lib/CWB/Encoder.pm view on Meta::CPAN
=item $idx->group($group);
=item $idx->perm($permission);
Optional group membership and access permissions for newly created
files (otherwise, neither B<chgrp> nor B<chmod> will be called). Note
that I<$permission> must be a string rather than an octal number (as
for the built-in B<chmod> function). Indexing will fail if the
specified group and/or permissions cannot be set.
=cut
sub group {
lib/CWB/Encoder.pm view on Meta::CPAN
foreach my $c (@$creates) {
my $f = $self->filename($att, $c);
croak "CWB::Indexer: Creation of component $att/$c ($f) failed (aborted).\n"
unless -s $f;
if ($perm) {
my $cmd = "chmod $perm '$f'";
print STDERR "CWB::Indexer: exec: $cmd\n"
if $self->{DEBUG};
CWB::Shell::Cmd $cmd;
}
if ($group) {
lib/CWB/Encoder.pm view on Meta::CPAN
=item $enc->group($group);
=item $enc->perm($permission);
Optional group membership and access permissions for newly created
files (otherwise, neither B<chgrp> nor B<chmod> will be called). Note
that I<$permission> must be a string rather than an octal number (as
for the built-in B<chmod> function). Encoding will fail if the
specified group and/or permissions cannot be set. If the data
directory has to be created, its access permissions and group
membership are set accordingly.
=cut
lib/CWB/Encoder.pm view on Meta::CPAN
croak "CWB::Encoder: Can't create data directory $dir\n"
unless mkdir $dir;
my $perm = $self->{PERM};
if ($perm) {
$perm =~ tr[642][753]; # derive directory permissions
CWB::Shell::Cmd(["chmod", $perm, $dir]);
$perm = "(chmod $perm)";
}
else {
$perm = "";
}
my $group = $self->{GROUP};
lib/CWB/Encoder.pm view on Meta::CPAN
my $norm_att = $att;
$norm_att =~ s{/$}{}; # remove feature set marker from attribute name
my $pattern = CWB::Shell::Quote($dir)."/${norm_att}.*";
print STDERR "CWB::Encoder: processing group $pattern\n"
if $self->{DEBUG} and ($perm or $group);
CWB::Shell::Cmd("chmod $perm $pattern")
if $perm;
CWB::Shell::Cmd("chgrp $group $pattern")
if $group;
}
foreach my $attspec (@{$self->{SATT}}) { # structural attributes
lib/CWB/Encoder.pm view on Meta::CPAN
foreach my $n ("", 1 .. $rec) { # indices of embedded regions
foreach my $ext ("", map {s{/$}{}; "_$_"} @xmlatts) { # extensions for XML tag attributes (with feature set marker removed)
my $pattern = CWB::Shell::Quote($dir)."/$att$ext$n.*";
print STDERR "CWB::Encoder: processing group $pattern\n"
if $self->{DEBUG} and ($perm or $group);
CWB::Shell::Cmd("chmod $perm $pattern")
if $perm;
CWB::Shell::Cmd("chgrp $group $pattern")
if $group;
}
}
lib/CWB/Encoder.pm view on Meta::CPAN
if $self->{VERBOSE};
my $infofile = "$dir/.info";
my $fh = CWB::OpenFile "> $infofile";
print $fh $self->{INFO}, "\n";
$fh->close;
CWB::Shell::Cmd(["chmod", $perm, $infofile])
if $perm;
CWB::Shell::Cmd(["chgrp", $group, $infofile])
if $group;
print "Editing registry entry ...\n" # edit registry file
lib/CWB/Encoder.pm view on Meta::CPAN
$rf->write($regfile);
print STDERR "CWB::Encoder: registry entry $regfile has been edited\n"
if $self->{DEBUG};
print STDERR "CWB::Encoder: setting access permissions for $regfile\n"
if $self->{DEBUG} and ($perm or $group);
CWB::Shell::Cmd(["chmod", $perm, $regfile])
if $perm;
CWB::Shell::Cmd(["chgrp", $group, $regfile])
if $group;
my $idx = new CWB::Indexer "$reg:".(uc $name); # build indices and compress p-attributes
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local