view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'DEFINE' => '', # e.g., '-DHAVE_SOMETHING'
'INC' => '', # e.g., '-I/usr/include/other'
);
#PREOP => 'pod2text Nilsimsa.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
view all matches for this distribution
view release on metacpan or search on metacpan
t/test_utils.pl view on Meta::CPAN
my $fh = IO::File->new (">$filename") or die "%Error: $! writing $filename,";
(my $shebang = $PERL) =~ s/\'//g;
print $fh "#!${shebang}\n";
print $fh "exec '${Dist}/project_bin','--project_bin-run','$torun',\@ARGV;\n";
$fh->close();
chmod 0777, $filename;
}
######################################################################
sub run_system {
view all matches for this distribution
view release on metacpan or search on metacpan
check_type_and_open|5.009003||Viu
check_uni|5.003007||Viu
check_utf8|5.008000||Viu
check_utf8_print|5.013009||Viu
child_offset_bits|5.009003||Viu
chmod|5.005000||Viu
chsize|5.005000||Viu
ckDEAD|5.006000||Viu
ck_entersub_args_core|||iu
ck_entersub_args_list|5.013006|5.013006|
ck_entersub_args_proto|5.013006|5.013006|
KEY_break|5.027008||Viu
KEY_caller|5.003007||Viu
KEY_catch|5.033007||Viu
KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
Perl_langinfo|5.027004|5.027004|n
PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
Perl_pp_aelemfast_lex|5.015000||Viu
Perl_pp_andassign|5.013009||Viu
Perl_pp_avalues|5.013009||Viu
Perl_pp_bind|5.013009||Viu
Perl_pp_bit_xor|5.013009||Viu
Perl_pp_chmod|5.013009||Viu
Perl_pp_chomp|5.013009||Viu
Perl_pp_connect|5.013009||Viu
Perl_pp_cos|5.013009||Viu
Perl_pp_custom|5.013009||Viu
Perl_pp_dbmclose|5.013009||Viu
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Directory/Deploy/Maker.pm view on Meta::CPAN
else {
croak "Don't know how to make $content";
}
my $mode;
chmod $mode, "$file" or carp "Unable to set mode ($mode) on file ($file)" if $mode = $entry->mode;
}
sub _make_dir {
my $self = shift;
my $entry = shift;
lib/Directory/Deploy/Maker.pm view on Meta::CPAN
my $dir = $self->deploy->dir( $entry->path );
$dir->mkpath;
my $mode;
chmod $mode, "$dir" or carp "Unable to set mode ($mode) on dir ($dir)" if $mode = $entry->mode;
}
1;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Directory/Diff/Copy.pm view on Meta::CPAN
die "Cannot stat $from: $!";
}
# perldoc -f stat
copy ($from, $to)
or die "Copy of '$from' to '$to' failed: $!";
# perldoc -f chmod
chmod $mode & 07777, $to or die "chmod on $to failed: $!";
}
sub diff_callback
{
my ($data, $old_dir, $new_dir, $file, $verbose) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Directory/Scratch.pm view on Meta::CPAN
or croak "Couldn't link $from to $to: $!";
return $to;
}
sub chmod {
my $self = shift;
my $mode = shift;
my @paths = @_;
my @translated = map { $self->_foreign_file($self->base, $_) } @paths;
return chmod $mode, @translated;
}
sub read {
my $self = shift;
my $file = shift;
lib/Directory/Scratch.pm view on Meta::CPAN
Otherwise, an exception is thrown.
(Note: delete means C<unlink> for a file and C<rmdir> for a directory.
C<delete>-ing an unempty directory is an error.)
=head2 chmod($octal_permissions, @files)
Sets the permissions C<$octal_permissions> on C<@files>, returning the
number of files successfully changed. Note that C<'0644'> is
C<--w----r-T>, not C<-rw-r--r-->. You need to pass in C<oct('0644')>
or a literal C<0644> for this method to DWIM. The method is just a
passthru to perl's built-in C<chmod> function, so see C<perldoc -f
chmod> for full details.
=head2 cleanup
Forces an immediate cleanup of the current object's directory. See
File::Path's rmtree(). It is not safe to use the object after this
view all matches for this distribution
view release on metacpan or search on metacpan
chdir(dirname($0));
my $file = join(' ', @ARGV);
my $code = "$CODE_DIRECTORY/$file";
open IN, "<$code" or die "Can't read $code: $!";
open OUT,">$file" or die "Can't create $file: $!";
chmod(0755, $file);
print "Extracting $file (with variable substitutions)\n";
print OUT <<"!GROK!THIS!";
$Config{'startperl'} -w
!GROK!THIS!
$/ = "\n";
view all matches for this distribution
view release on metacpan or search on metacpan
Disk-SMART
This module requires that smartctl be accessed as root. If you do not wish to install the module as root then you will need to make smartctl SETUID as root with "chmod u+s <path/to/smartctl>"
To install this module, run the following commands:
perl Makefile.PL
make
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Build/Core.pm view on Meta::CPAN
unlink $target if -f $target;
File::Copy::copy($source, $target) or croak "Could not copy: $!";
my ($atime, $mtime) = (stat $source)[8,9];
utime $atime, $mtime, $target;
chmod 0444 & ~umask, $target;
return;
}
sub manify {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Maker/Config.pm view on Meta::CPAN
$file //= $config->config_file;
my $home = $config->home_dir();
if(not -e $home) {
mkdir $home or warn "Cannot mkdir $home: $!";
chmod 0700, $home or warn "Cannot chmod $home: $!";
}
my $header = "#!perl\n" . "# This file is managed by $0.\n";
$config->save( $file => $header . $config->dump_data($data) )
or die "Cannot save config file";
chmod 0600, $file;
}
sub save_data_to_distconfig {
my($config, $distdir, $data) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Man/BuilderSet.pm view on Meta::CPAN
file => "Makefile.PL",
build_method => "create_Makefile_PL",
build_deps => [ { command => 'make',
aliases => [ 'make', 'gmake' ],
},
{ command => 'chmod',
aliases => [ 'chmod' ],
},
],
instructions => [ 'perl Makefile.PL',
'make',
'make test',
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Author/Plicease/TravisInstall.pm view on Meta::CPAN
print $fh "dzil listdeps --missing | cpanm -n\n";
print $fh "dzil install --install-command 'cpanm -n .'\n";
}
close $fh;
$file->chmod('0755');
}
__PACKAGE__->meta->make_immutable;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Git/FilePermissions.pm view on Meta::CPAN
my $current_perm = ( stat $file )[2] & 07777;
if ( $current_perm != $perm ) {
$self->log( sprintf "Setting permission of $file to %o", $perm );
my $rc = chmod $perm, $file;
if ( $rc != 1 ) {
$self->log_fatal( sprintf "Unable to change permissions of file $file to %o", $perm );
}
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Git/CommitBuild.pm view on Meta::CPAN
? $file->content
: $file->encoded_content) );
my ( $outfile ) = $dir->child( $name );
$outfile->parent->mkpath();
$outfile->spew_raw( $content );
chmod $file->mode, "$outfile" or die "couldn't chmod $outfile: $!";
}
# returns the sha1 of the created tree object
my $tree = $self->_create_tree($src, $dir);
view all matches for this distribution
view release on metacpan or search on metacpan
.perlcriticrc view on Meta::CPAN
# severity = 2
# maximum_violations_per_document = no_limit
# Cannot programmatically discover what parameters this policy takes.
# leading zeroes are okay as the first arg to chmod
[Lax::ProhibitLeadingZeros::ExceptChmod]
# set_themes = bugs lax
# add_themes =
# severity = 3
# maximum_violations_per_document = no_limit
.perlcriticrc view on Meta::CPAN
# set_themes = bugs certrec core pbp
# add_themes =
# severity = 5
# maximum_violations_per_document = no_limit
# Don't allow any leading zeros at all. Otherwise builtins that deal with Unix permissions, e.g. chmod, don't get flagged.
# strict = 0
# Long chains of method calls indicate tightly coupled code.
[ValuesAndExpressions::ProhibitLongChainsOfMethodCalls]
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/TestMLIncluder.pm view on Meta::CPAN
unshift @bin, "#!$Config{perlpath}\n";
open OUT, '>', $file or die "Can't open '$file' for output";
print OUT @bin;
close OUT;
chmod 0755, 'inc/bin/testml-cpan';
if ($^O eq 'MSWin32') {
my $file = 'inc/bin/testml-cpan.cmd';
open OUT, '>', $file or die "Can't open '$file' for output";
print OUT 'if exist "%~dpn0" perl %0 %*', "\r\n";
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Twitter.pm view on Meta::CPAN
access_secret => $access_tokens[1],
}
}, $self->config_file );
try {
chmod 0600, $self-> config_file;
}
catch {
print "Couldn't make @{[ $self->config_file ]} private: $_";
};
};
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/App/Command/bundle.pm view on Meta::CPAN
binmode( $out_fh , ":raw" );
print { $out_fh } $file->content;
close $out_fh or die "error closing $file_path: $!";
chmod $file->mode, "$file_path" or die "couldn't chmod $file_path: $!";
}
}
1;
view all matches for this distribution
view release on metacpan or search on metacpan
Notes/cpan-namespaces/cpan-namespaces-L1-L2.txt view on Meta::CPAN
File::XDG
File::Xcopy
File::Zglob
File::cd
File::chdir
File::chmod
File::chown
File::fgets
File::is
File::lchown
File::lockf
Notes/cpan-namespaces/cpan-namespaces-L1-L2.txt view on Meta::CPAN
Lazy::Bool
Lazy::Iterator
Lazy::Lockfile
Lazy::Util
Lazy::Utils
Lchmod
Lchown
Leading
Leading::Zeros
Ledger
Ledger::Examples
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/DROLSKY/Role/MaybeFileWriter.pm view on Meta::CPAN
return if $file->exists;
## no critic (ValuesAndExpressions::ProhibitLeadingZeros )
$file->parent->mkpath( 0, 0755 );
$file->spew_utf8($content);
$file->chmod(0755) if $is_executable;
return;
}
1;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/ArchiveRelease.pm view on Meta::CPAN
sub release
{
my ($self, $tgz) = @_;
chmod(0444, $tgz);
my $dest = $self->directory->child($tgz->basename);
my $destR = $self->pretty_path($dest);
require File::Copy;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/Role/RepoFileInjector.pm view on Meta::CPAN
# handle dzil v4 files by assuming no (or latin1) encoding
my $encoded_content = $file->can('encoded_content') ? $file->encoded_content : $file->content;
$abs_filename->spew_raw($encoded_content);
chmod $file->mode, "$abs_filename" or die "couldn't chmod $abs_filename: $!";
}
}
1;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla.pm view on Meta::CPAN
die "not a directory: $to_dir" unless -d $to_dir;
Carp::croak("attempted to write $to multiple times") if -e $to;
path("$to")->spew_raw( $file->encoded_content );
chmod $file->mode, "$to" or die "couldn't chmod $to: $!";
}
#pod =attr logger
#pod
#pod This attribute stores a L<Log::Dispatchouli::Proxy> object, used to log
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DocSet/Util.pm view on Meta::CPAN
my $base_dir = File::Basename::dirname $dst;
create_dir($base_dir) unless (-d $base_dir);
# File::Copy::syscopy doesn't preserve the mode :(
File::Copy::syscopy($src, $dst);
chmod $mode, $dst;
}
# gzip_file($src_path);
# gzip a file at $src_path
###############
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Doit.pm view on Meta::CPAN
my $preserve_time = exists $preserve{time} ? delete $preserve{time} : $preserve_default;
error "Unhandled preserve values: " . join(" ", %preserve) if %preserve;
if ($preserve_mode) {
chmod $stat[2], $dest
or warning "Can't chmod $dest to " . sprintf("0%o", $stat[2]) . ": $!";
}
if ($preserve_ownership) {
chown $stat[4], $stat[5], $dest
or do {
my $save_err = $!; # otherwise it's lost in the get... calls
lib/Doit.pm view on Meta::CPAN
};
no strict 'refs';
*{"cmd_$name"} = $cmd;
}
sub cmd_chmod {
my($self, @args) = @_;
my %options; if (@args && ref $args[0] eq 'HASH') { %options = %{ shift @args } }
my $quiet = delete $options{quiet};
error "Unhandled options: " . join(" ", %options) if %options;
my($mode, @files) = @args;
lib/Doit.pm view on Meta::CPAN
}
}
if (@files_to_change) {
my @commands = {
code => sub {
my $changed_files = chmod $mode, @files_to_change;
if ($changed_files != @files_to_change) {
if (@files_to_change == 1) {
error "chmod failed: $!";
} elsif ($changed_files == 0) {
error "chmod failed on all files: $!";
} else {
error "chmod failed on some files (" . (@files_to_change-$changed_files) . "/" . scalar(@files_to_change) . "): $!";
}
}
},
($quiet ? () : (msg => sprintf("chmod 0%o %s", $mode, join(" ", @files_to_change)))), # shellquote?
rv => scalar @files_to_change,
};
Doit::Commands->new(@commands);
} else {
Doit::Commands->return_zero;
lib/Doit.pm view on Meta::CPAN
}
}
}
for my $cmd (
qw(chmod chown mkdir rename rmdir symlink unlink utime),
qw(make_path remove_tree), # File::Path
qw(copy move), # File::Copy
qw(run), # IPC::Run
qw(qx info_qx), # qx// and variant which even runs in dry-run mode, both using list syntax
qw(open2 info_open2), # IPC::Open2
view all matches for this distribution
view release on metacpan or search on metacpan
App-Domain-1.230280/_Deparsed_XSubs.pm view on Meta::CPAN
sub bsearch;
sub calloc;
sub cbrt;
sub ceil;
sub chdir;
sub chmod;
sub chown;
sub clearerr;
sub clock;
sub close;
sub closedir;
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
Makefile.old view on Meta::CPAN
POD2MAN_EXE = /usr/bin/pod2man
POD2MAN = $(PERL) -we '%m=@ARGV;for (keys %m){' \
-e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "Makefile";' \
-e 'print "Manifying $$m{$$_}\n";' \
-e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\047t install $$m{$$_}\n";' \
-e 'chmod(oct($(PERM_RW))), $$m{$$_} or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}'
manifypods : pure_all DotLock.pm
@$(POD2MAN) \
DotLock.pm \
$(INST_MAN3DIR)/DotLock.$(MAN3EXT)
view all matches for this distribution
view release on metacpan or search on metacpan
# The default value is: YES.
# This tag requires that the tag GENERATE_LATEX is set to YES.
USE_PDFLATEX = YES
# If the LATEX_BATCHMODE tag is set to YES, doxygen will add the \batchmode
# command to the generated LaTeX files. This will instruct LaTeX to keep running
# if errors occur, instead of asking the user for help. This option is also used
# when generating formulas in HTML.
# The default value is: NO.
# This tag requires that the tag GENERATE_LATEX is set to YES.
view all matches for this distribution
view release on metacpan or search on metacpan
example/Doxyfile view on Meta::CPAN
# plain latex in the generated Makefile. Set this option to YES to get a
# higher quality PDF documentation.
USE_PDFLATEX = YES
# If the LATEX_BATCHMODE tag is set to YES, doxygen will add the \\batchmode.
# command to the generated LaTeX files. This will instruct LaTeX to keep
# running if errors occur, instead of asking the user for help.
# This option is also used when generating formulas in HTML.
LATEX_BATCHMODE = NO
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dpkg/BuildDriver/DebianRules.pm view on Meta::CPAN
if (@{$self->{debian_rules}} == 1 && ! -x $self->{debian_rules}[0]) {
warning(g_('%s is not executable; fixing that'),
$self->{debian_rules}[0]);
# No checks of failures, non fatal.
chmod 0755, $self->{debian_rules}[0];
}
}
=item $bool = $bd->need_build_task($build_task, $binary_task)
view all matches for this distribution