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 release on metacpan or search on metacpan
t/500-hierarchy.t view on Meta::CPAN
}
my $path_to_animal_cf = $animal->get_path;
# Strawberry Perl may unpack the distribution's files as read-only.
if ( ! -w $path_to_animal_cf ) {
chmod( 0644, $path_to_animal_cf )
or die "chmod for '$path_to_animal_cf' failed";
}
utime( undef, undef, $path_to_animal_cf )
or die "utime for '$path_to_animal_cf' failed"; # touch
$hierarchy->propagate_modified;
view release on metacpan or search on metacpan
lib/Clustericious/Admin/Server.pm view on Meta::CPAN
my $count = 1;
foreach my $file (@{ $payload->{files} })
{
my $path = File::Spec->catfile( tempdir( CLEANUP => 1 ), $file->{name} );
open my $fh, '>', $path;
chmod oct($file->{mode}), $path if defined $file->{mode};
binmode $fh;
print $fh $file->{content};
close $fh;
my $env = $file->{env};
$env = "FILE@{[ $count++ ]}" unless defined $env;
lib/Clustericious/Admin/Server.pm view on Meta::CPAN
{
my $dir = $payload->{dir}->{$name};
next unless $dir->{is_dir};
my $path = File::Spec->catdir($root, $name);
mkdir $path;
chmod oct($dir->{mode}), $path if defined $dir->{mode};
}
foreach my $name (sort keys %{ $payload->{dir} })
{
my $file = $payload->{dir}->{$name};
next if $file->{is_dir};
my $path = File::Spec->catfile($root, $name);
open my $fh, '>', $path;
chmod oct($file->{mode}), $fh if defined $file->{mode};
binmode $fh;
print $fh $file->{content};
close $fh;
}
}
view release on metacpan or search on metacpan
lib/Clustericious/Command/generate/app.pm view on Meta::CPAN
return if -e $relpath;
my $content = Mojo::Template->new->render_file( $file, $class );
$self->write_file($relpath, $content );
-x $file && $self->chmod_file($relpath, 0755);
}
sub run
{
my ($self, $class, @args ) = @_;
view release on metacpan or search on metacpan
system "mkdir $dst/app/lib/App/Model" unless -d "$dst/app/lib/App/Model";
system "mkdir $dst/app/lib/App/Controller/Web" unless -d "$dst/app/lib/App/Controller/Web";
system "mkdir $dst/app/lib/App/Validator" unless -d "$dst/app/lib/App/Validator";
system "chmod +x $dst/app/script/*";
system "find $dst -type f | xargs perl -i -pe 's/<APP_NAME>/$opts->{name}/g'";
system "find $dst -type f | xargs chmod +w";
system "chmod +x $dst/htdocs/dwarf/run.cgi";
=head1 SYNOPSIS
dwarf [--output=OUTPUT_DIR] [--share_dir=SHARE_DIR] APP_NAME
view release on metacpan or search on metacpan
doc/html/images.tex view on Meta::CPAN
\batchmode
\documentclass[a4paper]{scrartcl}
\RequirePackage{ifthen}
view release on metacpan or search on metacpan
lib/Code/TidyAll/Git/Precommit.pm view on Meta::CPAN
=item *
Add a setup script in F<git/setup.sh> containing
#!/bin/bash
chmod +x git/hooks/pre-commit
cd .git/hooks
ln -s ../../git/hooks/pre-commit
=item *
view release on metacpan or search on metacpan
lib/Prima/CodeManager/Edit.pm view on Meta::CPAN
insertMode => 0,
hiliteNumbers => cl::Green,
hiliteQStrings => cl::LightBlue,
hiliteQQStrings => cl::LightBlue,
hiliteIDs => [[qw(
abs accept alarm atan2 bind binmode bless caller chdir chmod chomp chop chown
chr chroot close closedir connect continue cos crypt defined
delete die do dump each endgrent endhostent endnetent endprotoent endpwent
endservent eof eval exec exists exit exp fcntl fileno flock for fork format
formline getc getgrent getgrgid getgrnam gethostbyaddr gethostbyname gethostent
getlogin getnetbyaddr getnetbyname getnetent getpeername getpgrp getppid
view release on metacpan or search on metacpan
lib/Cogit.pm view on Meta::CPAN
my $sha1 = $directory_entry->sha1;
my $mode = $directory_entry->mode;
my $object = $self->get_object($sha1);
if ($object->kind eq 'blob') {
$self->_add_file($filename, $object->content);
chmod(oct('0' . $mode), $filename)
|| die "Error chmoding $filename to $mode: $!";
} elsif ($object->kind eq 'tree') {
dir($filename)->mkpath;
$self->checkout($filename, $object);
} else {
die $object->kind;
view release on metacpan or search on metacpan
lib/CohortExplorer/Application.pm view on Meta::CPAN
# Check command history file exists and is readable and writable
my $command_history_file =
File::Spec->catfile( File::HomeDir->my_home, ".CohortExplorer_History" );
if ( !-r $command_history_file || !-w $command_history_file ) {
throw_app_init_exception( error =>
"'$command_history_file' must exist with RW enabled (i.e. chmod 766) for CohortExplorer"
);
}
# Prompt for password if not provided at command line
if ( !$opts->{password} ) {
view release on metacpan or search on metacpan
eval {
for my $file (
qw(users/jane users/john
lists/vent lists/perl lists/girlsonly)
) {
chmod(0644, "data1.4/$file");
}
};
my $data = _data();
cmp_deeply((users("data1.4"))[0], $data->{users}, "users()");
if $Colloquy::Data::VERSION >= 1.15;
eval {
my $oldW = $^W;
$^W = 0;
chmod(0666, "data1.4/lists/girlsonly");
my ($lists) = lists("data1.4");
$^W = $oldW;
};
ok($@ =~ /insecure/, 'dies properly on insecure permissions');
}
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 release on metacpan or search on metacpan
gen/gen_decl.pl view on Meta::CPAN
Function BuiltinFunc truncate
Function BuiltinFunc warn
Function BuiltinFunc write
Function BuiltinFunc vec
Function BuiltinFunc chdir
Function BuiltinFunc chmod
Function BuiltinFunc chown
Function BuiltinFunc chroot
Function BuiltinFunc fcntl
Function BuiltinFunc glob
Function BuiltinFunc ioctl
view release on metacpan or search on metacpan
src/compiler/util/Compiler_gen_token_decl.cpp view on Meta::CPAN
{Enum::Token::Type::BuiltinFunc, Enum::Token::Kind::Function, "BuiltinFunc", "truncate"},
{Enum::Token::Type::BuiltinFunc, Enum::Token::Kind::Function, "BuiltinFunc", "warn"},
{Enum::Token::Type::BuiltinFunc, Enum::Token::Kind::Function, "BuiltinFunc", "write"},
{Enum::Token::Type::BuiltinFunc, Enum::Token::Kind::Function, "BuiltinFunc", "vec"},
{Enum::Token::Type::BuiltinFunc, Enum::Token::Kind::Function, "BuiltinFunc", "chdir"},
{Enum::Token::Type::BuiltinFunc, Enum::Token::Kind::Function, "BuiltinFunc", "chmod"},
{Enum::Token::Type::BuiltinFunc, Enum::Token::Kind::Function, "BuiltinFunc", "chown"},
{Enum::Token::Type::BuiltinFunc, Enum::Token::Kind::Function, "BuiltinFunc", "chroot"},
{Enum::Token::Type::BuiltinFunc, Enum::Token::Kind::Function, "BuiltinFunc", "fcntl"},
{Enum::Token::Type::BuiltinFunc, Enum::Token::Kind::Function, "BuiltinFunc", "glob"},
{Enum::Token::Type::BuiltinFunc, Enum::Token::Kind::Function, "BuiltinFunc", "ioctl"},
view release on metacpan or search on metacpan
t/complete_program.t view on Meta::CPAN
use File::Temp qw(tempdir);
use Filesys::Cap qw(fs_is_cs);
use Test::More 0.98;
use Complete::Program qw(complete_program);
sub mkexe { write_text($_[0], ""); chmod 0755, $_[0] }
local $Complete::Common::OPT_CI = 0;
local $Complete::Common::OPT_MAP_CASE = 0;
local $Complete::Common::OPT_FUZZY = 0;
view release on metacpan or search on metacpan
lib/Compress/Bzip2.pm view on Meta::CPAN
}
sub _set_stat_from_snapshot ( $$ ) {
my ( $filename, $statsnap ) = @_;
if ( !chmod( S_IMODE( $statsnap->[2] ), $filename ) ) {
bz_seterror( &BZ_IO_ERROR, "chmod ".sprintf('%03o', S_IMODE( $statsnap->[2] ))." $filename failed: $!" );
return undef;
}
if ( !utime @$statsnap[8,9], $filename ) {
bz_seterror( &BZ_IO_ERROR,
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# Un-comment this if you add C files to link with later:
OBJECT => '$(O_FILES)', # link all the C files too
LICENSE => 'lgpl',
'dist' => {
PREOP => 'chmod 600 Makefile.PL',
TARFLAGS => '--group=none --owner=bjoern -cvf',
COMPRESS => 'gzip -9',
},
XS => { 'Deflate7.xs' => 'Deflate7.c' },
C => [
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
WriteMakefile(
'dist' => {
PREOP => 'pod2text LZF.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
'NAME' => 'Compress::LZF',
'VERSION_FROM' => 'LZF.pm',
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
WriteMakefile(
'dist' => {
PREOP => 'pod2text LZV1.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
'NAME' => 'Compress::LZV1',
'VERSION_FROM' => 'LZV1.pm',
view release on metacpan or search on metacpan
t/compress/CompTestUtils.pm view on Meta::CPAN
Carp::croak "NO!!!!" if defined $_;
# autogenerate the name if none supplied
$_ = "tst" . $$ . "X" . $index ++ . ".tmp"
unless defined $_;
}
chmod 0777, @_;
for (@_) { 1 while unlink $_ } ;
bless [ @_ ], $self ;
}
sub DESTROY
{
my $self = shift ;
chmod 0777, @{ $self } ;
for (@$self) { 1 while unlink $_ } ;
}
}
view release on metacpan or search on metacpan
t/compress/CompTestUtils.pm view on Meta::CPAN
{
# autogenerate the name unless if none supplied
$_ = "tst" . $index ++ . ".tmp"
unless defined $_;
}
chmod 0777, @_;
for (@_) { 1 while unlink $_ } ;
bless [ @_ ], $self ;
}
sub DESTROY
{
my $self = shift ;
chmod 0777, @{ $self } ;
for (@$self) { 1 while unlink $_ } ;
}
}
view release on metacpan or search on metacpan
t/compress/CompTestUtils.pm view on Meta::CPAN
Carp::croak "NO!!!!" if defined $_;
# autogenerate the name if none supplied
$_ = "tst" . $$ . "X" . $index ++ . ".tmp"
unless defined $_;
}
chmod 0777, @_;
for (@_) { 1 while unlink $_ } ;
bless [ @_ ], $self ;
}
sub DESTROY
{
my $self = shift ;
chmod 0777, @{ $self } ;
for (@$self) { 1 while unlink $_ } ;
}
}
view release on metacpan or search on metacpan
ext/zstd/programs/fileio.c view on Meta::CPAN
#define FNSPACE 30
/* Default file permissions 0666 (modulated by umask) */
/* Temporary restricted file permissions are used when we're going to
* chmod/chown at the end of the operation. */
#if !defined(_WIN32)
/* These macros aren't defined on windows. */
#define DEFAULT_FILE_PERMISSIONS (S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH)
#define TEMPORARY_FILE_PERMISSIONS (S_IRUSR|S_IWUSR)
#else
ext/zstd/programs/fileio.c view on Meta::CPAN
}
#if defined(_WIN32) || defined(WIN32)
/* windows doesn't allow remove read-only files,
* so try to make it writable first */
if (!(statbuf.st_mode & _S_IWRITE)) {
UTIL_chmod(path, &statbuf, _S_IWRITE);
}
#endif
return remove(path);
}
view release on metacpan or search on metacpan
ext/zstd/programs/fileio.c view on Meta::CPAN
return 0;
}
#if defined(_WIN32) || defined(WIN32)
/* windows doesn't allow remove read-only files,
* so try to make it writable first */
chmod(path, _S_IWRITE);
#endif
return remove(path);
}
/** FIO_openSrcFile() :
ext/zstd/programs/fileio.c view on Meta::CPAN
{ FILE* const f = fopen( dstFileName, "wb" );
if (f == NULL) {
DISPLAYLEVEL(1, "zstd: %s: %s\n", dstFileName, strerror(errno));
} else {
chmod(dstFileName, 00600);
}
return f;
}
}
ext/zstd/programs/fileio.c view on Meta::CPAN
&& strcmp(dstFileName, nulmark) /* special case : don't remove() /dev/null (#316) */
&& strcmp(dstFileName, stdoutmark) /* special case : don't remove() stdout */
) {
FIO_remove(dstFileName); /* remove decompression artefact; note: don't do anything special if remove() fails */
} else { /* operation success */
if ( strcmp(dstFileName, stdoutmark) /* special case : don't chmod stdout */
&& strcmp(dstFileName, nulmark) /* special case : don't chmod /dev/null */
&& transfer_permissions ) /* file permissions correctly extracted from src */
UTIL_setFileStat(dstFileName, &statbuf); /* transfer file permissions from src into dst */
}
}
view release on metacpan or search on metacpan
lib/Concierge/Auth.pm view on Meta::CPAN
open my $afh, ">", $args->{file} or
croak ("Can't open/create auth file ($args->{file}). $! ");
close $afh;
}
chmod 0600, $args->{file} or carp $!;
$self->{auth}->{file} = $args->{file};
$self;
}
## Class Methods for Responses
lib/Concierge/Auth.pm view on Meta::CPAN
open my $afh, ">", $file or
return reject( "Can't open/create auth file ($file). $!" );
close $afh;
}
chmod 0600, $file or carp $!;
if ( $self->validateFile($file) ) {
$self->{auth}->{file} = $file;
return confirm( "Valid file" );
}
view release on metacpan or search on metacpan
lib/Concierge/Sessions/File.pm view on Meta::CPAN
unless (mkdir $self->{storage_dir}) {
croak "Failed to create storage directory '$self->{storage_dir}': $!";
}
}
unless (chmod 0700, $self->{storage_dir}) {
croak "Failed to set permissions on storage directory '$self->{storage_dir}': $!";
}
return $self;
}
lib/Concierge/Sessions/File.pm view on Meta::CPAN
# Write over session file if it already exists (unlikely)
my $fh;
unless (open $fh, '>', $session_file) {
return { success => 0, message => "Cannot create session file: $!" };
}
unless (chmod 0600, $session_file) {
close $fh;
return { success => 0, message => "Cannot set session file permissions: $!" };
}
# Build session_info structure
view release on metacpan or search on metacpan
lib/Concierge/Users.pm view on Meta::CPAN
my $yaml_content = Concierge::Users::Meta::config_to_yaml($config_to_save, $storage_dir);
eval {
open my $fh, '>', $yaml_file or croak "Cannot open $yaml_file for writing: $!";
print {$fh} $yaml_content;
close $fh;
chmod 0666, $yaml_file; # Writable - allows setup() to overwrite
};
return {
success => 0,
message => "Failed to write YAML config file: $yaml_file\nError: $@"
} if $@;
view release on metacpan or search on metacpan
tools/Conf/Libconfig/WrapXS.pm view on Meta::CPAN
my $mapdir = "$basedir/xsbuilder/maps";
my @dirs = ("$basedir/src");
unless (-d $mapdir)
{
mkdir ($mapdir, 0755);
chmod (0755, $mapdir);
}
sub new_parsesource { [ Conf::Libconfig::ParseSource->new ] }
sub my_xs_prefix { 'config_xs_' }
view release on metacpan or search on metacpan
$tpar{'gid'} = $par->{'gid'} unless $tpar{'gid'};
croak "No filename!" unless $file = $par->{'file_name'};
($tmp = $file) =~ s/$/.new/;
open(FILEO, ">$tmp") || croak "can't create $tmp:$!";
chmod $tpar{'mode'}, $tmp;
chown $tpar{'uid'}, $tpar{'gid'}, $tmp;
for my $line (@{$par->{'lines'}}) {
print FILEO "$line\n";
$fsize += length($line)+1;
}
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libfax-hylafax-client-perl", "Fax-Hylafax-Client", "1.02", "0", "0"
"libfcgi-perl", "FCGI", "0.67", "0", "0"
"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-chmod-perl", "File-chmod", "not-uploaded", "0", "0"
"libfile-copy-recursive-perl", "File-Copy-Recursive", "0.36", "0", "0"
"libfile-desktopentry-perl", "File-DesktopEntry", "0.04", "1", "0"
"libfile-extattr-perl", "File-ExtAttr", "not-uploaded", "0", "0"
"libfile-find-rule-perl", "File-Find-Rule", "0.30", "1", "1"
"libfile-flock-perl", "File-Flock", "not-uploaded", "0", "0"