view release on metacpan or search on metacpan
lib/Dev/Util/Backup.pm view on Meta::CPAN
utime( $stat[8], $stat[9], $newfile );
chmod $stat[2], $newfile;
#preserve ownership if possible
chown $stat[4], $stat[5], $newfile
if ( $REAL_USER_ID == 0 || $REAL_USER_ID == $stat[4] );
}
return $newfile;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Devel/Chitin/OpTree/LISTOP.pm view on Meta::CPAN
[ pp_seekdir => 'seekdir', 0 ],
[ pp_syscall => 'syscall', 0 ],
[ pp_select => 'select', 0 ],
[ pp_sselect => 'select', 0 ],
[ pp_vec => 'vec', 0 ],
[ pp_chown => 'chown', 1 ],
[ pp_fcntl => 'fcntl', 1 ],
[ pp_ioctl => 'ioctl', 1 ],
[ pp_open => 'open', 0 ],
[ pp_open_dir => 'opendir', 0 ],
[ pp_rename => 'rename', 0 ],
view all matches for this distribution
view release on metacpan or search on metacpan
mkdir -p "$local_staging"
$docker cp "$name:/root/cover/staging" "$local_staging"
if [[ -d $local_staging ]]; then
chmod -R 755 "$local_staging"
find "$local_staging" -type f -exec chmod 644 {} \;
chown -R "$(id -un):$(id -gn)" "$local_staging"
cd "$local_staging"/* || exit
for f in *; do
if [[ -d $f && ! -d "$staging/$f" ]]; then
echo "$log_name.out.gz" >"$f/.log_ref"
mv "$f" "$staging"
view all matches for this distribution
view release on metacpan or search on metacpan
DB/Data/Dump.pm view on Meta::CPAN
$TRY_BASE64 = 50 unless defined $TRY_BASE64;
my %is_perl_keyword = map { $_ => 1 }
qw( __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ AUTOLOAD BEGIN CORE
DESTROY END EQ GE GT INIT LE LT NE abs accept alarm and atan2 bind
binmode bless caller chdir chmod chomp chop chown chr chroot close
closedir cmp connect continue cos crypt dbmclose dbmopen defined
delete die do dump each else elsif endgrent endhostent endnetent
endprotoent endpwent endservent eof eq eval exec exists exit exp fcntl
fileno flock for foreach fork format formline ge getc getgrent
getgrgid getgrnam gethostbyaddr gethostbyname gethostent getlogin
view all matches for this distribution
view release on metacpan or search on metacpan
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
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
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
PerlLIO_dup|5.005000||Viu
view all matches for this distribution
view release on metacpan or search on metacpan
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
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
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
PerlLIO_dup|5.005000||Viu
view all matches for this distribution
view release on metacpan or search on metacpan
generate-syscalls-gperf.pl view on Meta::CPAN
brk => "u",
capget => "pp",
capset => "pp",
chdir => "p",
chmod => "pu",
chown => "puu",
chroot => "p",
clock_adjtime => "up",
clock_getres => "up",
clock_gettime => "up",
clock_nanosleep => "uipp",
generate-syscalls-gperf.pl view on Meta::CPAN
fanotify_init => "uu",
fanotify_mark => "iuuip",
fchdir => "u",
fchmod => "uu",
fchmodat => "ipu",
fchown => "uuu",
fchownat => "ipuui",
fcntl => "uuu",
fdatasync => "u",
fgetxattr => "ippi",
finit_module => "ipi",
flistxattr => "ipi",
generate-syscalls-gperf.pl view on Meta::CPAN
ioprio_set => "iii",
kcmp => "uuiuu",
kexec_load => "uupu",
keyctl => "iuuuu",
kill => "ui",
lchown => "puu",
lgetxattr => "pppi",
link => "pp",
linkat => "ipipi",
listen => "ii",
listxattr => "ppi",
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Devel/Trepan/Complete.pm view on Meta::CPAN
use constant BUILTIN_CONST => qw(__FILE__ __LINE__ __PACKAGE__);
use constant BUILTIN_FNS => qw(
abs accept alarm
and atan2 bind binmode bless caller
chdir chmod chown chr chroot close
closedir cmp connect continue cos crypt
dbmclose dbmopen die dump endgrent
endhostent endnetent endprotoent endpwent
endservent eof eq exec exit exp fcntl
fileno flock fork formline ge getc
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Devel/ppport.h view on Meta::CPAN
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
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
lib/Devel/ppport.h view on Meta::CPAN
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
PerlLIO_dup|5.005000||Viu
view all matches for this distribution
view release on metacpan or search on metacpan
t/44-smart-router-two-stage.t view on Meta::CPAN
'perl:latest',
'sleep', 'infinity',
);
_run_or_die( 'docker', 'cp', $tarball, "$container:$container_tarball" );
_run_or_die( 'docker', 'cp', $skill_repo, "$container:$skill_mount_path" );
_run_or_die( 'docker', 'exec', $container, 'sh', '-lc', "chown -R root:root $skill_mount_path" );
_run_or_die_with_retry(
2,
[ 'docker', 'exec', $container, 'sh', '-lc', "cpanm --notest $container_tarball" ],
);
_run_or_die( 'docker', 'exec', $container, 'sh', '-lc', 'dashboard init' );
view all matches for this distribution
view release on metacpan or search on metacpan
#!/usr/bin/perl
#Basic HTTP Example
#To get this running, you'll most likely will have to
# chown root.root cgicam.pl
# chmod 0755 cgicam.pl
# chmod +s cgicam.pl
use Device::QuickCam;
view all matches for this distribution
view release on metacpan or search on metacpan
t/contents/test_debian_dists_sid_main_Contents view on Meta::CPAN
bin/cftp net/cftp
bin/check-foreground-console misc/libpam-foreground
bin/checkpassword admin/fgetty
bin/chgrp utils/coreutils
bin/chmod utils/coreutils
bin/chown utils/coreutils
bin/chvt utils/kbd
bin/con2fbmap admin/fbset
bin/cp utils/coreutils
bin/cpio utils/cpio
bin/cvssh devel/gforge-common
view all matches for this distribution
view release on metacpan or search on metacpan
DiaColloDB/Utils.pm view on Meta::CPAN
my $rc = File::Copy::copy($src,$dst) or return undef;
$dst = "$dst/".basename($src) if (-d $dst);
my @stat = stat($src);
my ($perm,$gid,$atime,$mtime) = @stat[2,5,8,9];
my $uid = $>==0 ? $stat[4] : $>; ##-- don't try to set uid unless we're running as root
$rc &&= CORE::chown($uid,$gid,$dst)
or $that->warn("cp_a(): failed to propagate ownership from '$src' to '$dst': $!");
$rc &&= CORE::chmod(($perm & 07777), $dst)
or $that->warn("cp_a(): failed to propagate persmissions from '$src' to '$dst': $!");
$rc &&= CORE::utime($atime,$mtime,$dst)
or $that->warn("cp_a(): failed to propagate timestamps from '$src' to '$dst': $!");
view all matches for this distribution
view release on metacpan or search on metacpan
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
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
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
PerlLIO_dup|5.005000||Viu
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Dpkg/PerlbrewStarman.pm view on Meta::CPAN
# Setup the perlbrew
echo "export PATH=~/perlbrew/bin:$PATH" > /srv/$PACKAGE/.profile
# Make sure this user owns the directory
chown -R $PACKAGE:adm /srv/$PACKAGE
# Make the log directory
if [ ! -e /var/log/$PACKAGE ]; then
mkdir /var/log/$PACKAGE
chown -R $PACKAGE:adm /var/log/$PACKAGE
fi
{$webserver_restart}
;;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Author/SKIRMESS/RepositoryBase.pm view on Meta::CPAN
;;
"osx" )
# TravisCI extracts the broken perl archive with sudo which creates the
# $HOME/perl5 directory with owner root:staff. Subdirectories under
# perl5 are owned by user travis.
sudo chown "$USER" "$HOME/perl5"
# The perl distribution TravisCI extracts on OSX is incomplete
sudo rm -rf "$HOME/perl5/perlbrew"
# Install cpanm and local::lib
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::Xcopy
File::Zglob
File::cd
File::chdir
File::chmod
File::chown
File::fgets
File::is
File::lchown
File::lockf
File::pfopen
File::pushd
File::stat
File::umask
Notes/cpan-namespaces/cpan-namespaces-L1-L2.txt view on Meta::CPAN
Lazy::Iterator
Lazy::Lockfile
Lazy::Util
Lazy::Utils
Lchmod
Lchown
Leading
Leading::Zeros
Ledger
Ledger::Examples
Ledger::Journal
view all matches for this distribution
view release on metacpan or search on metacpan
examples/site/src/docs/1.0/guide/scenario.pod view on Meta::CPAN
It worked!!!
Assuming that the server's userid is C<nobody>, make the script owned
by this user. We already made it executable and readable by user.
% chown nobody /home/httpd/perl/test.pl
Now it is time to test that mod_perl enabled Apache can execute the
script.
Start the server ('C<apachectl start>'). Check in I<logs/error_log>
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
my $self = shift;
my $text = '';
my $etcdir = '';
$text .= "RSYNC = rsync\n";
$text .= "CHOWN = chown\n\n";
# Determine location of etc conf files
my $destdir = $args{DESTDIR} || rootdir();
my $etcdir = catdir( $destdir, 'etc', $args{pkg_name} );
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Doit.pm view on Meta::CPAN
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
warning "Can't chown $dest to " .
(getpwuid($stat[4]))[0] . "/" .
(getgrgid($stat[5]))[0] . ": $save_err";
};
}
if ($preserve_time) {
lib/Doit.pm view on Meta::CPAN
} else {
Doit::Commands->return_zero;
}
}
sub cmd_chown {
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($uid, $gid, @files) = @args;
lib/Doit.pm view on Meta::CPAN
}
if (@files_to_change) {
my @commands = {
code => sub {
my $changed_files = chown $uid, $gid, @files_to_change;
if ($changed_files != @files_to_change) {
if (@files_to_change == 1) {
error "chown failed: $!";
} elsif ($changed_files == 0) {
error "chown failed on all files: $!";
} else {
error "chown failed on some files (" . (@files_to_change-$changed_files) . "/" . scalar(@files_to_change) . "): $!";
}
}
},
($quiet ? () : (msg => "chown $uid, $gid, @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 calloc;
sub cbrt;
sub ceil;
sub chdir;
sub chmod;
sub chown;
sub clearerr;
sub clock;
sub close;
sub closedir;
sub constant;
App-Domain-1.230280/_Deparsed_XSubs.pm view on Meta::CPAN
sub j0;
sub j1;
sub jn;
sub kill;
sub labs;
sub lchown;
sub ldexp;
sub ldiv;
sub lgamma;
sub link;
sub localeconv;
view all matches for this distribution
view release on metacpan or search on metacpan
-- Guillem Jover <guillem@debian.org> Tue, 22 Jan 2019 14:26:04 +0100
dpkg (1.19.2) unstable; urgency=medium
[ Guillem Jover ]
* dpkg: Fix --force-not-root for chown() and chmod() based syscalls, and
give a more meaningful error message on chroot(). Closes: #614126
* dpkg-divert, dpkg-statoverride: Add new --instdir and --root options,
and make the commands honor the DPKG_ROOT environment variable.
Closes: #487108
* libdpkg: Call the pager with «$SHELL -c» to respect POSIX. Closes: #910009
matching libraries ourself. This fixes problems with both
symlinked directories, Closes: #103024, #145714, #164020, #285857
and biarch builds. Closes: #317082
* Let dpkg-gencontrol bail out with an error if parsedep
found an error while parsing a dependency field. Closes: #228125
* dpkg-source -x now tries to chown all files extracted from
tar files. The temporary directory is now created with mode
0700, too. Together this should make it safer to run
dpkg-source -x as root. Based on suggestions by Marcus
Brinkmann and Colin Watson. Closes: #144571, #238460
* Let dpkg-source -b check the build relation fields before
-- Ben Collins <bcollins@debian.org> Sat, 13 Jan 2001 08:52:11 -0500
dpkg (1.8.3) unstable; urgency=low
* Do chown before chmod in dpkg-statoverride, Closes: Bug#81943
* Fix recursion in dpkg-shlibdeps, Closes: Bug#81322
* Really completely revert dpkg-source patches which broke backwards
compatibility
-- Wichert Akkerman <wakkerma@debian.org> Fri, 12 Jan 2001 00:02:22 -0800
* tools.m4: Fix display of whether c++ works.
* dpkg-deb/extract.c: glibc 2.1 and some kernels want to make
fflush() move the current fpos. Until someone can fix that,
protect with seek.
* Add an extra 0, to dselect/{pkg,meth}keys.cc so it compiles again.
* Start using lchown() if available.
* Really fix #20353. (aclocal.m4 was the wrong place; that's a generated
file. The correct place is in tl_canon.m4.)
-- Daniel Jacobowitz <dan@debian.org> Tue, 21 Jul 1998 03:14:14 -0400
in file names (e.g. from the kbd package)
* controllib.pl: $varlistvile -> $varlistfile (thanx Karl Sackett)
* dpkg-buildpackage: quoting for $rootcommand (thanx Michael Meskes)
and `eval' as default $rootcommand
* dpkg-*, controllib.pl: created debian/files and debian/substvars
are chown'ed to `getlogin()' and its group
* doc/: mv changed to mv -f
* dpkg-buildpackage: added an option -a for overriding the
architecture in the changes _file_name_
* dpkg-buildpackage: pass -m* -v* .. options to dpgk-genchangelog
* dpkg-name moved to dpkg-dev
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dunce/Files.pm view on Meta::CPAN
The list of overridden functions is:
chdir
chmod
chop
chown
chroot
dbmopen
flock
link
mkdir
lib/Dunce/Files.pm view on Meta::CPAN
# Commonly abused file functions.
use vars qw(@File_Functions);
@File_Functions= qw(
chdir
chmod
chown
chroot
dbmopen
flock
link
mkdir
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DynGig/CLI/Service.pm view on Meta::CPAN
_run_script( $name, "exec %s %s nice -n %d %s 2>&1 || sleep %d",
$setuidgid, map { $config->{$_} } qw( user nice command pause ) );
_run_script( $log,
"mkdir -p %s\nchown -R %s %s\nexec %s %s %s t I s%d n%d %s",
$main, $user, $main, $setuidgid, $user, $multilog,
$config->{log_size}, $config->{log_keep}, $main );
die "$name: already running\n" if -l $link;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DynGig/Util/Symlink.pm view on Meta::CPAN
croak "rename: $!" if -l $link && ! rename $link, $rollback;
croak "symlink: $!" unless symlink $path, $link;
}
}
system( "chown -h $user $link $rollback" ) unless $<;
croak "chdir $cwd: $!" unless chdir $cwd;
return $previous;
}
sub check
view all matches for this distribution
view release on metacpan or search on metacpan
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
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
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
PerlLIO_dup|5.005000||Viu
view all matches for this distribution
view release on metacpan or search on metacpan
docker/dist/Dockerfile view on Meta::CPAN
# return to HOME directory
WORKDIR ${HOME}
# script to generate new certfiles, for use if/when the old certs expire
ADD --chown=perlecs:perlecs generate_ca_and_certfiles.sh ${HOME}/
# add GnuPG and EMDIS::ECS test configurations, and README
# (use tar commands instead of ADD, to set perlecs:perlecs file ownership)
COPY --chown=perlecs:perlecs certfiles.tar.gz ./
RUN mkdir -m 755 ./certfiles
RUN tar xzf ./certfiles.tar.gz -C ./certfiles
COPY --chown=perlecs:perlecs gnupg.tar.gz ./
RUN tar xzf ./gnupg.tar.gz -C ./
COPY --chown=perlecs:perlecs ecs-AA.tar.gz ecs-BB.tar.gz ecs-CC.tar.gz ecs-DD.tar.gz ecs-EE.tar.gz ./
RUN tar xzf ecs-AA.tar.gz
RUN tar xzf ecs-BB.tar.gz
RUN tar xzf ecs-CC.tar.gz
RUN tar xzf ecs-DD.tar.gz
RUN tar xzf ecs-EE.tar.gz
COPY --chown=perlecs:perlecs README README_GPG README_SMOKE_TESTING ./
#USER root
view all matches for this distribution
view release on metacpan or search on metacpan
lib/ETLp/Manual/Install.pod view on Meta::CPAN
SetEnv ORACLE_HOME <ORACLE_HOME>
</Directory>
Make sure the web files are owned by the apache user (typically ''apache'' or ''nobody''):
chown -R apache:apache /var/www/etlp
Restart apache:
service httpd restart
view all matches for this distribution
view release on metacpan or search on metacpan
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
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
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
PerlLIO_dup|5.005000||Viu
view all matches for this distribution