view release on metacpan or search on metacpan
- \P{PROP} means literal P{PROP}
- \X means literal X
- support POSIX-style character classes
- modifier /a /d /l /u, and /aa of regexp makes die
- use 5.12.0; --> use 5.12.0; no strict qw(refs);
- remove test 201_kanji.t,202_kanji.t,203_kanji.t,204_kanji.t,205_glob.t,210_chmod.t,211_chown.t,212_dbmopen.t,214_glob.t,216_open.t,217_qx.t,218_rename.t,221_sysopen.t,222_system.t,223_truncate.t,225_utime.t,226_chdir.t,227_chmod.t,228_chown.t,229...
- created by INABA Hitoshi
0.75 2011-06-05 00:00:00
- remove Esjis::binmode and Esjis::open (it's a bad idea)
- created by INABA Hitoshi
view release on metacpan or search on metacpan
lib/Lchmod.pm view on Meta::CPAN
=head1 SYNOPSIS
use Lchmod;
chmod(0600, $symlink) || die "Could not chown “$symlinkâ€: $!\n";
# $symlink is 0777, its target is 0600
lchmod(0644, $symlink) || die "Could not lchown “$symlinkâ€: $!\n";
# $symlink is 0644, its target remains at 0600
=head1 DESCRIPTION
Similar to L<Lchown> but for setting a symlink’s mode instead of uid/gid.
lchmod() behaves like chmod() except that when given a symlink it operates on the symlink instead of the target.
=head1 INTERFACE
lib/Lchmod.pm view on Meta::CPAN
Takes a mode and list of files (just like L<chmod()>).
Returns the count of items that were succesfully modified (just like L<chmod()>).
Returns undef and sets $! to ENOSYS (just like L<chmod()>) when the system does not support lchown.
It is automatically imported and importable (just like L<Lchown>).
=head2 LCHMOD_AVAILABLE()
Exportable availabilty–check similar to what L<Lchown> provides.
Takes no arguments, returns true when lchmod() is available, false when it is not.
=head1 DIAGNOSTICS
view release on metacpan or search on metacpan
lib/Lchown.pm view on Meta::CPAN
package Lchown;
use strict;
use warnings;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(lchown);
@EXPORT_OK = qw(lchown LCHOWN_AVAILABLE);
$VERSION = '1.01';
require XSLoader;
XSLoader::load('Lchown', $VERSION);
sub LCHOWN_AVAILABLE () {
defined lchown(0,0) ? 1 : 0;
}
1;
__END__
=head1 NAME
Lchown - use the lchown(2) system call from Perl
=head1 SYNOPSIS
use Lchown;
lchown $uid, $gid, 'foo' or die "lchown: $!";
my $count = lchown $uid, $gid, @filenames;
# or
use Lchown qw(lchown LCHOWN_AVAILABLE);
warn "this system lacks the lchown system call\n" unless LCHOWN_AVAILABLE;
...
# or
use Lchown ();
warn "this won't work\n" unless Lchown::LCHOWN_AVAILABLE;
Lchown::lchown $uid, $gid, 'foo' or die "lchown: $!";
=head1 DESCRIPTION
Provides a perl interface to the C<lchown()> system call, on platforms that
support it.
=head1 DEFAULT EXPORTS
The following symbols are exported be default:
=over
=item lchown (LIST)
Like the C<chown> builtin, but using the C<lchown()> system call so that
symlinks will not be followed. Returns the number of files successfully
changed.
On systems without the C<lchown()> system call, C<lchown> always returns
C<undef> and sets C<errno> to C<ENOSYS> (Function not implemented).
=back
=head1 ADDITIONAL EXPORTS
lib/Lchown.pm view on Meta::CPAN
=over
=item LCHOWN_AVAILABLE ()
Returns true on platforms with the C<lchown()> system call, and false on
platforms without.
=back
=head1 SEE ALSO
L<perlfunc/chown>, L<lchown(2)>
=head1 AUTHOR
Nick Cleaton E<lt>nick@cleaton.netE<gt>
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||Viu
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 release on metacpan or search on metacpan
eg/lokiSender view on Meta::CPAN
$gid = getgrnam( $opts->{group} );
POSIX::setgid($gid);
}
if ( $opts->{user} ) {
$uid = getpwnam( $opts->{user} );
chown( $uid, ( $gid // [ stat( $opts->{deferDir} ) ]->[5] ),
$opts->{deferDir} )
and chmod( 0700, $opts->{deferDir} );
POSIX::setuid( scalar( getpwnam( $opts->{user} ) ) )
if $opts->{user};
my (
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 release on metacpan or search on metacpan
lib/LightTCP/Server.pm view on Meta::CPAN
my $gid = getgrnam($group);
$) = "$gid $gid" or $self->logit("# Error setting group $group: $!", 0) if $gid;
}
if ($user ne '') {
my $uid = getpwnam($user);
chown($uid, -1, $self->logfn) if $self->logfn ne '';
$> = $uid or $self->logit("# Error setting user $user: $!", 0) if $uid;
}
$self->logit("# Running as user $user and group $group", 0);
}
}
view release on metacpan or search on metacpan
init/freebsd view on Meta::CPAN
lilith_precmd()
{
if [ ! -d "/var/run/${name}" ]; then
mkdir -p "/var/run/${name}"
chown "${lilith_user}" "/var/run/${name}"
else
# incase of user change
chown "${lilith_user}" "/var/run/${name}"
fi
}
load_rc_config $name
run_rc_command "$1"
view release on metacpan or search on metacpan
lib/Lim/Util.pm view on Meta::CPAN
};
# TODO log error
unless ($@) {
if (chmod($mode, $tmp->filename) and chown($uid, $gid, $tmp->filename)) {
return $tmp;
}
}
}
return;
view release on metacpan or search on metacpan
lib/Lingua/EN/SENNA/third-party/senna/hash/ner.per.lst view on Meta::CPAN
chowdhury
chowdy
chowen
chowenhill
chowhan
chown
chowning
choy
chrabasz
chrabaszcz
chreene
chrest
view release on metacpan or search on metacpan
share/count_1w.txt view on Meta::CPAN
bergamot 390303
infallible 390285
shutout 390281
willson 390263
loaves 390262
chown 390261
prosthetics 390244
proms 390236
zk 390229
karol 390229
dieu 390216
share/count_1w.txt view on Meta::CPAN
wcsu 28188
tabler 28188
minipage 28188
killinger 28188
intersegmental 28188
chowning 28188
moltmann 28187
drdsses 28187
swanscombe 28186
rinvs 28186
folwell 28186
view release on metacpan or search on metacpan
lib/Lingua/Romana/Perligata.pm view on Meta::CPAN
'agnosce' => { perl => 'ref' },
'exhibere' => { perl => 'tied' },
'require' => { perl => 'require' },
'demigrare' => { perl => 'chdir' },
'permitte' => { perl => 'chmod' },
'vende' => { perl => 'chown' },
'inveni' => { perl => 'glob' },
'copula' => { perl => 'link' },
'decopula' => { perl => 'unlink' },
'aedifica' => { perl => 'mkdir' },
'renomina' => { perl => 'rename' },
lib/Lingua/Romana/Perligata.pm view on Meta::CPAN
=head2 System and filesystem interaction
chdir demigrare "migrate"
chmod permitte "permit"
chown vende "sell"
fcntl modera "control"
flock confluee "flock together"
glob inveni "search"
ioctl impera "command"
link copula "link"
view release on metacpan or search on metacpan
lib/Lingua/Sinica/PerlYuYan.pm view on Meta::CPAN
鑑 狩 敕 告 訴 縮 訊 寫
pack read unpack vec
包 讀 å•Ÿ å‘
chdir chmod chown chroot fcntl glob ioctl link lstat mkdir open opendir
ç›® 權 æ“ é· æŽ§ å…¨ 制 éˆ æ³ é€ é–‹ 展
readlink rename rmdir stat symlink umask unlink utime
readlink 更 毀 態 symlink 蒙 鬆 刻
say if else elsif until while until foreach given when default break
view release on metacpan or search on metacpan
lib/Lingua/tlhInganHol/yIghun.pm view on Meta::CPAN
qojHa' atan2
So' crypt
boSHa' unpack
Sam index
naw'choH chmod
pIn'a'choH chown
rar link
neq rename
);
my $v_arg2 = enqr keys %v_arg2;
sub to_arg2 {
lib/Lingua/tlhInganHol/yIghun.pm view on Meta::CPAN
nup truncate
pa'ghuHmoH carp
pa'Hegh croak
pagh 0
pIm'a' ne
pIn'a'choH chown
poD int
poDmoH chop
pong keys
pongwI' caller
poQ require
lib/Lingua/tlhInganHol/yIghun.pm view on Meta::CPAN
carp pa'ghuHmoH "warn over there"
chdir ghomchoH "change grouping"
chmod naw'choH "change access"
chomp chaqpoDmoH "maybe clip"
chop poDmoH "clip"
chown pIn'a'choH "change master"
close SoQmoH "close"
cmp 'ov "compete"
continue rIn "be complete"
cos joqtaHHa' "counter waving"
croak pa'Hegh "die over there"
view release on metacpan or search on metacpan
default-install/default-install.pl view on Meta::CPAN
warn "LinkController Working directory $::LC_DIR already present";
} else {
mkpath("$::LC_DIR") or warn "working directory creation failed";
my ($login,$pass,$uid,$gid) = getpwnam($::LC_USER)
or die "$::LC_USER user not in passwd file. Can't create directory.";
chown ($uid, $gid, $::LC_DIR);
}
}
sub delete_workingdir () {
if (-d $::LC_DIR ) {
view release on metacpan or search on metacpan
lib/Linux/Capabilities.pod view on Meta::CPAN
use Linux::Capabilities;
my $caps_self = Linux::Capabilities->new;# Creating capabilities list for self proccess
my $caps_other = Linux::Capabilities->new(5432);# Creating capabilities list for proccess with pid 5432
my $caps_by_text = Linux::Capabilities->new("all=epi cap_chown-p");# Creating capabilities list from text as in system call cap_from_text
my $caps_empty = Linux::Capabilities->empty;# Creating empty capabilities set
my $caps_from_file = Linux::Capabilities->from_file("./file");# Creating capabilities set from file
print $caps_self->get_text;
my $all_caps = $caps_self0->get_all;# Hash with capabilities
my $cap_chown = $caps_self->get_value(CAP_CHOWN);
my $cap_kill_effective = $caps_self->get_value(CAP_KILL, CAP_EFFECTIVE);
$cap_self->raise;
$cap_self->raise(CAP_CHOWN);
$cap_self->raise([CAP_CHOWN, CAP_KILL]);
lib/Linux/Capabilities.pod view on Meta::CPAN
is_supported will return 1 if capability that you passed there is supported on your system and 0 otherwise.
=head2 get_name
my $name1 = $caps->get_name(CAP_CHOWN); # $name1 = "cap_chown"
my $name2 = Linux::Capabilities::get_name(CAP_NET_BIND_SERVICE); # $name2 = "cap_net_bind_service"
=head2 new
my $cap = Linux::Capability->new;
lib/Linux/Capabilities.pod view on Meta::CPAN
=item new(5432)
Object is created with capability set from procces with pid that you pass to new.
=item new("cap_chown=e")
Object is created with capability set made from input string, as in system call cap_from_text in Linux.
=back
lib/Linux/Capabilities.pod view on Meta::CPAN
=head2 get_text
Returns text made from capability set, same as system call cap_to_text in Linux.
my $cap_text = Linux::Capabilities->new("cap_chown=p");
$cap_text will be set to "cap_chown=p"
=head2 get_all
Returns capability set as hash reference:
my $caps = Linux::Capabilities->new("cap_chown=ep cap_kill=i");
my $cap_all = $caps->get_all;
$cap_all will be set to:
{
cap_chown => {
effective => 1,
permitted => 1,
inheritable => 0
},
cap_kill => {
lib/Linux/Capabilities.pod view on Meta::CPAN
=head2 get_value
Returns capability flags as hash reference:
my $caps = Linux::Capabilities->new("cap_chown=ep cap_kill=i");
my $cap_chown = $cap_all->get_value(CAP_CHOWN);
$cap_chown will be set to:
{
effective => 1,
permitted => 1,
inheritable => 0,
lib/Linux/Capabilities.pod view on Meta::CPAN
=head2 get_value_flag
Returns value of a flag in capability(i.e. flag effective in CAP_CHOWN);
my $caps = Linux::Capabilities->new("cap_chown=ep cap_kill=i");
my $cap_chown_eff = $cap_all->get_value_flag(CAP_CHOWN, CAP_EFFECTIVE);
$cap_chown_eff will be set to 1
=head2 raise
raise is used to make flags state CAP_SET in your current capabilities set.
view release on metacpan or search on metacpan
install/tpl/quartzpvr-install.pl view on Meta::CPAN
if (!mkpath([$dir], 0, 0755))
{
print "ERROR unable to create dir $dir : $!" ;
exit 1 ;
}
chown $web_uid, $web_gid, $dir ;
}
}
## PVR
foreach my $d (qw/VIDEO_DIR VIDEO_TRASH AUDIO_DIR PVR_LOGDIR PVR_HOME/)
install/tpl/quartzpvr-install.pl view on Meta::CPAN
if (!mkpath([$dir], 0, 0755))
{
print "ERROR unable to create dir $dir : $!" ;
exit 1 ;
}
chown $pvr_uid, $pvr_gid, $dir ;
}
}
# ## Subdirs
# my $dir = "VIDEO_DIR" ;
install/tpl/quartzpvr-install.pl view on Meta::CPAN
# if (!mkpath([$dir], 0, 0755))
# {
# print "ERROR unable to create dir $dir : $!" ;
# exit 1 ;
# }
# chown $pvr_uid, $pvr_gid, $dir ;
# }
#
# }
# pvr server
install/tpl/quartzpvr-install.pl view on Meta::CPAN
if (!mkpath([$dir], 0, 0755))
{
print "ERROR unable to create dir $dir : $!" ;
exit 1 ;
}
chown $pvr_uid, $pvr_gid, $dir ;
}
}
}
#----------------------------------------------------------------------
install/tpl/quartzpvr-install.pl view on Meta::CPAN
# exit 1 ;
# }
## Set ownership
runit($app,
"chown -R $owner $dest/$dir",
"setting ownership of $dest/$dir to $owner"
) ;
# $app->run("chown -R $owner $dest/$dir") ;
# $status = $app->run()->status ;
# if ($status)
# {
# print "Error setting ownership of $dest/$dir to $owner\n" ;
# exit 1 ;
install/tpl/quartzpvr-install.pl view on Meta::CPAN
# check destination directory
my $dir = dirname($dest) ;
if (! -d $dir)
{
mkpath([$dir], 0, 0755) ;
chown $uid, $gid, $dir ;
}
# write
open my $fh, ">$dest" or die "Error: unable to write template $dest : $!" ;
print $fh $data ;
close $fh ;
# set perms
chown $uid, $gid, $dest ;
chmod $mode, $dest ;
print "\nSet $dest owner $uid:$gid mode $mode\n" if $DEBUG ;
print "done\n" ;
view release on metacpan or search on metacpan
lib/Linux/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/Linux/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 release on metacpan or search on metacpan
lib/Linux/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/Linux/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 release on metacpan or search on metacpan
src/libwiimote-0.4/install-sh view on Meta::CPAN
# put in absolute paths if you don't have them in your path; or use env. vars.
mvprog="${MVPROG-mv}"
cpprog="${CPPROG-cp}"
chmodprog="${CHMODPROG-chmod}"
chownprog="${CHOWNPROG-chown}"
chgrpprog="${CHGRPPROG-chgrp}"
stripprog="${STRIPPROG-strip}"
rmprog="${RMPROG-rm}"
mkdirprog="${MKDIRPROG-mkdir}"
chmodcmd="$chmodprog 0755"
chowncmd=
chgrpcmd=
stripcmd=
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=
src/libwiimote-0.4/install-sh view on Meta::CPAN
Options:
-c (ignored)
-d create directories instead of installing files.
-g GROUP $chgrpprog installed files to GROUP.
-m MODE $chmodprog installed files to MODE.
-o USER $chownprog installed files to USER.
-s $stripprog installed files.
-t DIRECTORY install into DIRECTORY.
-T report an error if DSTFILE is a directory.
--help display this help and exit.
--version display version info and exit.
src/libwiimote-0.4/install-sh view on Meta::CPAN
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-s) stripcmd=$stripprog
src/libwiimote-0.4/install-sh view on Meta::CPAN
done
fi
if test -n "$dir_arg"; then
$doit $mkdircmd "$dst" \
&& { test -z "$chowncmd" || $doit $chowncmd "$dst"; } \
&& { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } \
&& { test -z "$stripcmd" || $doit $stripcmd "$dst"; } \
&& { test -z "$chmodcmd" || $doit $chmodcmd "$dst"; }
else
src/libwiimote-0.4/install-sh view on Meta::CPAN
#
# If any of these fail, we abort the whole thing. If we want to
# ignore errors from any of these, just make sure not to ignore
# errors from the above "$doit $cpprog $src $dsttmp" command.
#
{ test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } \
&& { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } \
&& { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } \
&& { test -z "$chmodcmd" || $doit $chmodcmd "$dsttmp"; } &&
# Now rename the file to the real destination.
view release on metacpan or search on metacpan
lib/Linux/LXC.pm view on Meta::CPAN
if (!$this->_check_folder_existence($container_root, $abs_folder)) {
`chroot $container_root mkdir $abs_folder`;
# This instruction is the cause we can not simply use a `mkdir -p` command for creating the path: we need
# to set the good rights to folder in order to copy it.
# Note: we set right only if we have to create the folder, for avoiding to create too much mess.
`chroot $container_root chown $uid:$uid $abs_folder` if (defined $uid);
}
}
`chroot $container_root mv /tmp/lxc-transit $dest_from_container_root`;
`chroot $container_root chown -R $uid:$uid $dest_from_container_root` if defined $uid;
}
sub del_config {
my ($this, $attr, $filter) = @_;
if (defined $filter and ref($filter) ne 'Regexp') {
view release on metacpan or search on metacpan
easyxs/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
easyxs/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 release on metacpan or search on metacpan
lib/Linux/Prctl.pm view on Meta::CPAN
=head3 audit_write
Write records to kernel auditing log.
=head3 chown
Make arbitrary changes to file UIDs and GIDs (see L<chown(2)>).
=head3 dac_override
Bypass file read, write, and execute permission checks. (DAC is an
abbreviation of "discretionary access control".)
view release on metacpan or search on metacpan
lib/Linux/Seccomp.pm view on Meta::CPAN
__NR_break
__NR_breakpoint
__NR_cachectl
__NR_cacheflush
__NR_chmod
__NR_chown
__NR_chown32
__NR_connect
__NR_creat
__NR_create_module
__NR_dup2
__NR_epoll_create
lib/Linux/Seccomp.pm view on Meta::CPAN
__NR_epoll_wait
__NR_epoll_wait_old
__NR_eventfd
__NR_fadvise64
__NR_fadvise64_64
__NR_fchown32
__NR_fcntl64
__NR_fork
__NR_fstat64
__NR_fstatat64
__NR_fstatfs64
lib/Linux/Seccomp.pm view on Meta::CPAN
__NR_inotify_init
__NR_ioperm
__NR_iopl
__NR_ipc
__NR_kexec_file_load
__NR_lchown
__NR_lchown32
__NR_link
__NR_listen
__NR_lock
__NR_lstat
__NR_lstat64
lib/Linux/Seccomp.pm view on Meta::CPAN
__PNR_break
__PNR_breakpoint
__PNR_cachectl
__PNR_cacheflush
__PNR_chmod
__PNR_chown
__PNR_chown32
__PNR_connect
__PNR_creat
__PNR_create_module
__PNR_dup2
__PNR_epoll_create
lib/Linux/Seccomp.pm view on Meta::CPAN
__PNR_epoll_wait
__PNR_epoll_wait_old
__PNR_eventfd
__PNR_fadvise64
__PNR_fadvise64_64
__PNR_fchown32
__PNR_fcntl64
__PNR_fork
__PNR_fstat64
__PNR_fstatat64
__PNR_fstatfs64
lib/Linux/Seccomp.pm view on Meta::CPAN
__PNR_inotify_init
__PNR_ioperm
__PNR_iopl
__PNR_ipc
__PNR_kexec_file_load
__PNR_lchown
__PNR_lchown32
__PNR_link
__PNR_listen
__PNR_lock
__PNR_lstat
__PNR_lstat64
view release on metacpan or search on metacpan
easyxs/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
easyxs/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 release on metacpan or search on metacpan
lib/List/Gen/Lazy/Builtins.pm view on Meta::CPAN
eval "fn @pre @post" or die $@;
}
my @builtin = qw(
abs accept alarm atan2 bind binmode bless caller chdir chmod chomp
chop chown chr chroot close closedir connect cos crypt dbmclose dbmopen
default defined die do endgrent endhostent endnetent endprotoent
endpwent endservent eof eval exec exit exp fcntl fileno flock fork
formline getc getgrent getgrgid getgrnam gethostbyaddr gethostbyname
gethostent getlogin getnetbyaddr getnetbyname getnetent getpeername
getpgrp getppid getpriority getprotobyname getprotobynumber getprotoent
lib/List/Gen/Lazy/Builtins.pm view on Meta::CPAN
my $x = &shift(\@array); # must use parens and manually take the reference
the implemented functions are:
abs accept alarm atan2 bind binmode bless caller chdir chmod chomp chop
chown chr chroot close closedir connect cos crypt dbmclose dbmopen default
defined die do endgrent endhostent endnetent endprotoent endpwent
endservent eof eval exec exit exp fcntl fileno flock fork formline getc
getgrent getgrgid getgrnam gethostbyaddr gethostbyname gethostent getlogin
getnetbyaddr getnetbyname getnetent getpeername getpgrp getppid getpriority
getprotobyname getprotobynumber getprotoent getpwent getpwnam getpwuid
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||Viu
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 release on metacpan or search on metacpan
#: src/attrib.c:1076
msgid "I can't find that player"
msgstr ""
#: src/attrib.c:1107
msgid "You can only chown an attribute to the current owner of the object."
msgstr ""
#: src/attrib.c:1111
msgid "Attribute owner changed."
msgstr ""
#: src/attrib.c:1114
msgid "You don't have the permission to chown that."
msgstr ""
#: src/attrib.c:1118
msgid "No such attribute."
msgstr ""
view release on metacpan or search on metacpan
lib/Log/Log4perl/Appender/File.pm view on Meta::CPAN
die "Unknown group: $self->{group}" unless defined $gid;
}
}
if($uid != $uid_org or $gid != $gid_org) {
chown($uid, $gid, $self->{filename}) or
die "chown('$uid', '$gid') on '$self->{filename}' failed: $!";
}
}
##################################################
sub file_switch {