Result:
found more than 1006 distributions - search limited to the first 2001 files matching your query
( run in 0.616 )
CLI-Startup
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libfcgi-procmanager-perl", "FCGI-ProcManager", "0.19", "0", "0"
"libfeed-find-perl", "Feed-Find", "0.07", "0", "1"
"libfile-basedir-perl", "File-BaseDir", "0.03", "0", "1"
"libfile-bom-perl", "File-BOM", "0.14", "0", "0"
"libfile-changenotify-perl", "File-ChangeNotify", "0.20", "0", "0"
"libfile-chmod-perl", "File-chmod", "0.32", "0", "0"
"libfile-copy-link-perl", "File-Copy-Link", "0.112", "0", "0"
"libfile-copy-recursive-perl", "File-Copy-Recursive", "0.38", "1", "0"
"libfile-counterfile-perl", "File-CounterFile", "1.04", "0", "0"
"libfile-countlines-perl", "File-CountLines", "0.0.3", "0", "0"
"libfile-desktopentry-perl", "File-DesktopEntry", "0.04", "1", "1"
CORBA-IOP-IOR
view release on metacpan or search on metacpan
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
CP932-R2
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";
}
CP932IBM-R2
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";
}
CP932NEC-R2
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";
}
CP932X-R2
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";
}
CPAN-Changes
view release on metacpan or search on metacpan
corpus/dists/B-C.changes view on Meta::CPAN
(Text-Tabs+Wrap t/dandv.t)
* t/testm.sh: implement -s without log file
* t/modules.pm: export skip_modules, silence module scanning STDERR
1.23 2010-02-14 rurban
* t/testm.sh: chmod +x
* t/modules.t: fix $have_IPC_Run
1.22 2010-02-14 rurban
Tested with ActivePerl 5.10.0
CPAN-Checksums
view release on metacpan or search on metacpan
lib/CPAN/Checksums.pm view on Meta::CPAN
Writing to $tckfn directly";
open $fh, ">$tckfn\0" or die "Couldn't open >$tckfn\: $!";
print $fh $message;
close $fh or warn "Couldn't close $tckfn: $!";
}
chmod 0644, $ckfn or die "Couldn't chmod to 0644 for $ckfn\: $!" if -f $ckfn;
rename $tckfn, $ckfn or die "Could not rename: $!";
chmod 0444, $ckfn or die "Couldn't chmod to 0444 for $ckfn\: $!";
return 2;
}
sub _add_digests ($$$$$$$) {
my($de,$dref,$module,$constructor_args,$keyname,$abs,$old_dref) = @_;
CPAN-Common-Index
view release on metacpan or search on metacpan
t/CPAN/modules/02packages.details.txt view on Meta::CPAN
P5AST::op_bit_or undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_bit_xor undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_bless undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_caller undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chdir undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chmod undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chomp undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chop undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chown undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chr undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chroot undef F/FL/FLORA/perl-5.17.4.tar.bz2
t/CPAN/modules/02packages.details.txt view on Meta::CPAN
PLXML::op_bit_or undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_bit_xor undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_bless undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_caller undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chdir undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chmod undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chomp undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chop undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chown undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chr undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chroot undef F/FL/FLORA/perl-5.17.4.tar.bz2
CPAN-Dependency
view release on metacpan or search on metacpan
lib/CPAN/Dependency.pm view on Meta::CPAN
#!/bin/sh
BLOCK=128000
dev=`hdid -nomount ram://$BLOCKS`
newfs_hfs -v RAMDisk $dev
mkdir /Volumes/RAMDisk
chmod 777 /Volumes/RAMDisk
mount -t hfs $dev /Volumes/RAMDisk
Then follow the same instructions for moving the F<build/> directory
as given for Linux.
CPAN-Inject
view release on metacpan or search on metacpan
lib/CPAN/Inject.pm view on Meta::CPAN
use 5.006;
use strict;
use Params::Util ();
use File::stat ();
use File::chmod ();
use File::Spec ();
use File::Path ();
use File::Copy ();
use File::Basename ();
use CPAN::Checksums ();
lib/CPAN/Inject.pm view on Meta::CPAN
}
# Copy the file to the directory, and ensure writable
File::Copy::copy( $from_file => $to_file )
or Carp::croak("Failed to copy $from_file to $to_file");
chmod( 0644, $to_file )
or Carp::croak("Failed to correct permissions for $to_file");
# Update the checksums file, and ensure writable
SCOPE: {
local $@;
lib/CPAN/Inject.pm view on Meta::CPAN
};
if ( my $e = $@ ) {
Carp::croak("Failed to update CHECKSUMS after insertion: $e");
}
}
chmod( 0644, File::Spec->catfile( $to_dir, 'CHECKSUMS' ) )
or Carp::croak("Failed to correct permissions for CHECKSUMS");
# Return the install_path as a convenience
$self->install_path($name);
}
CPAN-Maker
view release on metacpan or search on metacpan
- Log::Log4perl
- Text::CSV_XS
- Pod::Find
* cpan/test-requires: no version for Text::CSV_XS
* src/main/bash/bin/Makefile.am
- chmod +x
- don't exit if pod2man fails
* src/main/bash/bin/make-cpan-dist.in
- organize options
- new options -O, -C
- support for -S, -e as path or file
(slurp_file): new
* src/main/perl/lib/CPAN/Maker.pm.in
- pod tweaks
* src/main/perl/lib/Makefile.am
- build README.md
- chmod +x
- added CPAN/Maker.pm to build
* src/main/perl/lib/README.md: new
Fri Sep 27 15:03:00 2024 Rob Lauer <rlauer6@comcast.net>
CPAN-Mini-Inject-REST
view release on metacpan or search on metacpan
inc/File/Copy/Recursive.pm view on Meta::CPAN
copy(@_) or return;
my @base_file = File::Spec->splitpath($_[0]);
my $mode_trg = -d $_[1] ? File::Spec->catfile($_[1], $base_file[ $#base_file ]) : $_[1];
chmod scalar((stat($_[0]))[2]), $mode_trg if $KeepMode;
}
return wantarray ? (1,0,0) : 1; # use 0's incase they do math on them and in case rcopy() is called in list context = no uninit val warnings
}
sub rcopy {
inc/File/Copy/Recursive.pm view on Meta::CPAN
$filen++ if $end eq $baseend;
$dirn++ if $end eq $baseend;
$DirPerms = oct($DirPerms) if substr($DirPerms,0,1) eq '0';
mkdir($end,$DirPerms) or return if !-d $end;
chmod scalar((stat($str))[2]), $end if $KeepMode;
if($MaxDepth && $MaxDepth =~ m/^\d+$/ && $level >= $MaxDepth) {
return ($filen,$dirn,$level) if wantarray;
return $filen;
}
$level++;
inc/File/Copy/Recursive.pm view on Meta::CPAN
}
else {
fcopy($org,$new,$buf) or return if defined $buf;
fcopy($org,$new) or return if !defined $buf;
}
chmod scalar((stat($org))[2]), $new if $KeepMode;
$filen++;
}
}
}
1;
CPAN-Mini-Inject
view release on metacpan or search on metacpan
lib/CPAN/Mini/Inject.pm view on Meta::CPAN
}
sub _updperms {
my ( $self, $file ) = @_;
chmod oct( $self->config->get( 'dirmode' ) ) & 06666, $file
if $self->config->get( 'dirmode' );
}
sub _optionchk {
my ( $options, @list ) = @_;
CPAN-Mini-Visit
view release on metacpan or search on metacpan
lib/CPAN/Mini/Visit.pm view on Meta::CPAN
use warnings;
use Carp ();
use File::Spec 0.80 ();
use File::Temp 0.21 ();
use File::pushd 1.00 ();
use File::chmod 0.31 ();
use File::Find::Rule 0.27 ();
use Archive::Extract 0.32 ();
use CPAN::Mini 0.576 ();
use Params::Util 1.00 ();
lib/CPAN/Mini/Visit.pm view on Meta::CPAN
my $extracted = $extract->extract_path;
unless ( -r $extracted and -x $extracted ) {
# Handle special case where we have screwed up
# permissions on the extract directory.
# Just assume we have permissions for that.
File::chmod::chmod( 0755, $extracted );
}
# Change into the directory
my $pushd2 = File::pushd::pushd( $extracted );
CPAN-Packager
view release on metacpan or search on metacpan
lib/CPAN/Packager/Builder/RPM.pm view on Meta::CPAN
@{ $self->config( modules => $module_name )->{no_depends} || () } )
{
print $fh "-e '/perl($mod->{module})/d' ";
}
print $fh "\n";
system("chmod 755 $filter_macro_file");
}
sub _generate_global_filter_macro {
my ( $self, $module_name ) = @_;
lib/CPAN/Packager/Builder/RPM.pm view on Meta::CPAN
sed };
for my $mod ( @{ $self->config( global => 'no_depends' ) || () } ) {
print $fh "-e '/perl($mod->{module})/d' ";
}
print $fh "\n";
system("chmod 755 $filter_macro_file");
}
sub get_default_build_arch {
my $build_arch = qx(rpm --eval %{_build_arch});
chomp $build_arch;
CPAN-ParseDistribution
view release on metacpan or search on metacpan
lib/CPAN/ParseDistribution.pm view on Meta::CPAN
system(
$extra_params{use_tar},
(($file =~ /gz$/) ? 'xzf' : 'xf'),
$file
);
system("chmod -R u+r *"); # tar might preserve unreadable perms
} else {
my $tar = Archive::Tar->new($file, 1);
$tar->extract() if($tar);
}
} else {
if($extra_params{use_tar}) {
system( $extra_params{use_tar}, 'xjf', $file);
system("chmod -R u+r *");
} else {
open(my $fh, '-|', qw(bzip2 -dc), $file) || die("Can't unbzip2\n");
my $tar = Archive::Tar->new($fh);
$tar->extract() if($tar);
}
lib/CPAN/ParseDistribution.pm view on Meta::CPAN
getlogin ggrnam ggrgid ggrent sgrent egrent msgctl
msgget msgrcv msgsnd semctl semget semop shmctl
shmget shmread shmwrite require dofile caller
syscall dump chroot link unlink rename symlink
truncate backtick system fork wait waitpid glob
exec exit kill time tms mkdir rmdir utime chmod
chown fcntl sysopen open close umask binmode
open_dir closedir
), ($] >= 5.010 ? qw(say) : ()));
$c->share_from(__PACKAGE__, [qw(qv)]);
s/\buse\s+version\b.*?;//gs;
CPAN-Plugin-Sysdeps
view release on metacpan or search on metacpan
} else {
die "No mock for arguments '@ARGV'";
}
EOS
close $ofh or die $!;
chmod 0755, $mocked_rpm;
$ENV{PATH} = "$tempdir:$ENV{PATH}";
SKIP: {
my $out = `rpm --version`;
skip "Cannot run mocked rpm script", 5
CPAN-Reporter-Smoker-Safer
view release on metacpan or search on metacpan
---------------------------- ------ ------ ------ ------ ------ ------ ------
.../Reporter/Smoker/Safer.pm 92.2 61.8 55.6 100.0 100.0 100.0 84.6 # 137/162
---------------------------- ------ ------ ------ ------ ------ ------ ------
cover -test
chmod go+rx cover_db
export HARNESS_PERL_SWITCHES=-MDevel::Cover=+ignore,^t/
cover -delete
make test
cover --outputfile=index.html
chmod go+rx cover_db
CPAN-Reporter
view release on metacpan or search on metacpan
t/03_config_file.t view on Meta::CPAN
#--------------------------------------------------------------------------#
# check error handling if not readable
#--------------------------------------------------------------------------#
my $original_mode = (stat $config_file)[2] & 07777;
chmod 0, $config_file ;
SKIP:
{
skip "Couldn't set config file unreadable; skipping related tests", 2
if -r $config_file;
t/03_config_file.t view on Meta::CPAN
like( $stdout, "/couldn't read configuration file/",
"opening non-readable file gives a warning"
);
}
chmod $original_mode, $config_file;
ok( -r $config_file,
"config file reset to readable"
);
#--------------------------------------------------------------------------#
# check error handling if not writeable
#--------------------------------------------------------------------------#
chmod 0444, $config_file;
SKIP:
{
skip "Couldn't set config file unwritable; skipping related tests", 2
if -w $config_file;
t/03_config_file.t view on Meta::CPAN
like( $stdout, "/error writing config file/",
"opening non-writeable file gives a warning"
);
}
chmod $original_mode, $config_file;
ok( -w $config_file,
"config file reset to writeable"
);
#--------------------------------------------------------------------------#
CPAN-Testers-ParseReport
view release on metacpan or search on metacpan
t/var/nntp-testers/6525411 view on Meta::CPAN
In file included from ./perl_libyaml.h:9,
from LibYAML.xs:1:
/usr/home/cpan/pit/bare/perl-5.10.0/lib/5.10.0/i386-freebsd/CORE/perl.h:299=
:1: warning: this is the location of the previous definition
Running Mkbootstrap for YAML::XS::LibYAML ()
chmod 644 LibYAML.bs
rm -f ../blib/arch/auto/YAML/XS/LibYAML/LibYAML.so
cc -shared -L/usr/local/lib api.o dumper.o emitter.o loader.o parser.o pe=
rl_libyaml.o reader.o scanner.o writer.o LibYAML.o -o ../blib/arch/auto/YA=
ML/XS/LibYAML/LibYAML.so=20=09=20=20=20=20=09=20
chmod 755 ../blib/arch/auto/YAML/XS/LibYAML/LibYAML.so
cp LibYAML.bs ../blib/arch/auto/YAML/XS/LibYAML/LibYAML.bs
chmod 644 ../blib/arch/auto/YAML/XS/LibYAML/LibYAML.bs
Manifying ../blib/man3/YAML::XS::LibYAML.3
Manifying blib/man3/YAML::XS.3
[MSG] [Thu Dec 17 05:47:30 2009] Sending test report for 'YAML-LibYAML-0.32'
[MSG] [Thu Dec 17 05:47:31 2009] Ok, not sending test report
CPAN-Testers-WWW-Statistics
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":{"...
CPAN-Unpack
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 ) {
CPAN-Visitor
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"
CPAN-cpanminus-reporter-RetainReports
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
CPAN
view release on metacpan or search on metacpan
lib/CPAN/CacheMgr.pm view on Meta::CPAN
return if $CPAN::Signal;
my($Du) = 0;
if (-e $dir) {
if (-d $dir) {
unless (-x $dir) {
unless (chmod 0755, $dir) {
$CPAN::Frontend->mywarn("I have neither the -x permission nor the ".
"permission to change the permission; cannot ".
"estimate disk usage of '$dir'\n");
$CPAN::Frontend->mysleep(5);
return;
lib/CPAN/CacheMgr.pm view on Meta::CPAN
my $cat = Mac::Files::FSpGetCatInfo($_);
$Du += $cat->ioFlLgLen() + $cat->ioFlRLgLen() if $cat;
} else {
if (-d _) {
unless (-x _) {
unless (chmod 0755, $_) {
$CPAN::Frontend->mywarn("I have neither the -x permission nor ".
"the permission to change the permission; ".
"can only partially estimate disk usage ".
"of '$_'\n");
$CPAN::Frontend->mysleep(5);
CPANPLUS-Dist-Arch
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>) {
CPANPLUS-Dist-Deb
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);
CPANPLUS-Dist-Debora
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' >>
CPANPLUS
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
( run in 0.616 second using v1.01-cache-2.11-cpan-496ff517765 )