view release on metacpan or  search on metacpan

t/helpers/travis-setup.sh  view on Meta::CPAN

sudo service postgresql stop
sudo pg_createcluster -u travis $PGVERSION replica # PORT 5434
sudo sh -c "cat t/helpers/config/main.conf >> /etc/postgresql/$PGVERSION/replica/postgresql.conf"
sudo rm -rf ~postgres/$PGVERSION/replica 
sudo cp -r ~postgres/$PGVERSION/main2 ~postgres/$PGVERSION/replica 
sudo chown -R travis ~postgres/$PGVERSION/replica
sudo cp t/helpers/config/recovery.conf ~postgres/$PGVERSION/replica
sudo sh -c "cat t/helpers/config/replica.conf >> /etc/postgresql/$PGVERSION/replica/postgresql.conf"
sudo sh -c "echo 'local replication	travis	trust' >> /etc/postgresql/$PGVERSION/main2/pg_hba.conf"
sudo service postgresql start $PGVERSION

 view release on metacpan or  search on metacpan

lib/PHP/Decode/Func.pm  view on Meta::CPAN

	is_file => {},
	is_dir => {},
	is_link => {},
	stat => {},
	lstat => {},
	chown => {},
	chgrp => {},
	lchown => {},
	lchgrp => {},
	chmod => {},
	touch => {},
	clearstatcache => {},
	disk_total_space => {},

 view release on metacpan or  search on metacpan

basiclib/Config.pm-txt  view on Meta::CPAN

cf_email='support@ActiveState.com'
cf_time='Tue Feb  4 15:34:07 2003'
charsize='1'
chgrp=''
chmod=''
chown=''
clocktype='clock_t'
comm=''
compress=''
contains='grep'
cp='copy'

basiclib/Config.pm-txt  view on Meta::CPAN

d_bsdsetpgrp='undef'
d_bzero='undef'
d_casti32='undef'
d_castneg='define'
d_charvspr='undef'
d_chown='undef'
d_chroot='undef'
d_chsize='define'
d_closedir='define'
d_const='define'
d_crypt='define'

basiclib/Config.pm-txt  view on Meta::CPAN

d_endpwent='undef'
d_endsent='undef'
d_eofnblk='define'
d_eunice='undef'
d_fchmod='undef'
d_fchown='undef'
d_fcntl='undef'
d_fcntl_can_lock='undef'
d_fd_macros='define'
d_fd_set='define'
d_fds_bits='define'

basiclib/Config.pm-txt  view on Meta::CPAN

d_int64_t='undef'
d_isascii='define'
d_isnan='define'
d_isnanl='undef'
d_killpg='undef'
d_lchown='undef'
d_ldbl_dig='define'
d_link='define'
d_locconv='define'
d_lockf='undef'
d_longdbl='define'

basiclib/Config.pm-txt  view on Meta::CPAN

From F<Loc.U>:

This variable is defined but not used by Configure.
The value is a plain '' and is not useful.

=item C<chown>

From F<Loc.U>:

This variable is defined but not used by Configure.
The value is a plain '' and is not useful.

basiclib/Config.pm-txt  view on Meta::CPAN

This variable conditionally defines C<CHARVSPRINTF> if this system
has vsprintf returning type (char*).  The trend seems to be to
declare it as "int vsprintf()".

=item C<d_chown>

From F<d_chown.U>:

This variable conditionally defines the C<HAS_CHOWN> symbol, which
indicates to the C program that the chown() routine is available.

=item C<d_chroot>

From F<d_chroot.U>:

basiclib/Config.pm-txt  view on Meta::CPAN

This variable conditionally defines the C<HAS_FCHMOD> symbol, which
indicates to the C program that the fchmod() routine is available
to change mode of opened files.

=item C<d_fchown>

From F<d_fchown.U>:

This variable conditionally defines the C<HAS_FCHOWN> symbol, which
indicates to the C program that the fchown() routine is available
to change ownership of opened files.

=item C<d_fcntl>

From F<d_fcntl.U>:

basiclib/Config.pm-txt  view on Meta::CPAN

This variable conditionally defines the C<HAS_KILLPG> symbol, which
indicates to the C program that the killpg() routine is available
to kill process groups.

=item C<d_lchown>

From F<d_lchown.U>:

This variable conditionally defines the C<HAS_LCHOWN> symbol, which
indicates to the C program that the lchown() routine is available
to operate on a symbolic link (instead of following the link).

=item C<d_ldbl_dig>

From F<d_ldbl_dig.U>:

 view release on metacpan or  search on metacpan

basiclib/Config.pm-txt  view on Meta::CPAN

cf_email='support@ActiveState.com'
cf_time='Tue Feb  4 15:34:07 2003'
charsize='1'
chgrp=''
chmod=''
chown=''
clocktype='clock_t'
comm=''
compress=''
contains='grep'
cp='copy'

basiclib/Config.pm-txt  view on Meta::CPAN

d_bsdsetpgrp='undef'
d_bzero='undef'
d_casti32='undef'
d_castneg='define'
d_charvspr='undef'
d_chown='undef'
d_chroot='undef'
d_chsize='define'
d_closedir='define'
d_const='define'
d_crypt='define'

basiclib/Config.pm-txt  view on Meta::CPAN

d_endpwent='undef'
d_endsent='undef'
d_eofnblk='define'
d_eunice='undef'
d_fchmod='undef'
d_fchown='undef'
d_fcntl='undef'
d_fcntl_can_lock='undef'
d_fd_macros='define'
d_fd_set='define'
d_fds_bits='define'

basiclib/Config.pm-txt  view on Meta::CPAN

d_int64_t='undef'
d_isascii='define'
d_isnan='define'
d_isnanl='undef'
d_killpg='undef'
d_lchown='undef'
d_ldbl_dig='define'
d_link='define'
d_locconv='define'
d_lockf='undef'
d_longdbl='define'

basiclib/Config.pm-txt  view on Meta::CPAN

From F<Loc.U>:

This variable is defined but not used by Configure.
The value is a plain '' and is not useful.

=item C<chown>

From F<Loc.U>:

This variable is defined but not used by Configure.
The value is a plain '' and is not useful.

basiclib/Config.pm-txt  view on Meta::CPAN

This variable conditionally defines C<CHARVSPRINTF> if this system
has vsprintf returning type (char*).  The trend seems to be to
declare it as "int vsprintf()".

=item C<d_chown>

From F<d_chown.U>:

This variable conditionally defines the C<HAS_CHOWN> symbol, which
indicates to the C program that the chown() routine is available.

=item C<d_chroot>

From F<d_chroot.U>:

basiclib/Config.pm-txt  view on Meta::CPAN

This variable conditionally defines the C<HAS_FCHMOD> symbol, which
indicates to the C program that the fchmod() routine is available
to change mode of opened files.

=item C<d_fchown>

From F<d_fchown.U>:

This variable conditionally defines the C<HAS_FCHOWN> symbol, which
indicates to the C program that the fchown() routine is available
to change ownership of opened files.

=item C<d_fcntl>

From F<d_fcntl.U>:

basiclib/Config.pm-txt  view on Meta::CPAN

This variable conditionally defines the C<HAS_KILLPG> symbol, which
indicates to the C program that the killpg() routine is available
to kill process groups.

=item C<d_lchown>

From F<d_lchown.U>:

This variable conditionally defines the C<HAS_LCHOWN> symbol, which
indicates to the C program that the lchown() routine is available
to operate on a symbolic link (instead of following the link).

=item C<d_ldbl_dig>

From F<d_ldbl_dig.U>:

 view release on metacpan or  search on metacpan

lib/POD2/ES/perlfunc.pod  view on Meta::CPAN

compilador conoce el contexto en tiempo de compilación. Se generará aquí el
operador coma, no la versión de concatenación de listas de la propia coma.
Esto significa que nunca será una lista.

En general, funciones en Perl que sirven como envoltorios para llamadas al
sistema ("syscalls") del mismo nombre (como L<chown(2)>, L<fork(2)>,
L<closedir(2)>, etc.) devuelven verdadero cuando tienen éxito, y
L<C<undef>|/undef EXPR> en otro caso, como se menciona en las siguientes
descripciones. Esto es diferente de las interfaces en C, que devuelven C<-1> en
caso de error. Excepciones a esta regla incluyen a L<C<wait>|/wait>,
L<C<waitpid>|/waitpid PID,INDICADORES> y L<C<syscall>|/syscall NÚMERO, LISTA>.

lib/POD2/ES/perlfunc.pod  view on Meta::CPAN

X<file> X<filehandle> X<directory> X<pipe> X<link> X<symlink> X<archivo> X<identificador de archivo> X<enlace>

=for Pod::Functions =File

L<C<-I<X>>|/-X IDENTIFICADOR_ARCHIVO>, L<C<chdir>|/chdir EXPR>,
L<C<chmod>|/chmod LISTA>, L<C<chown>|/chown LISTA>, L<C<chroot>|/chroot
NOMBRE_ARCHIVO>, L<C<fcntl>|/fcntl IDENTIFICADOR_ARCHIVO,FUNCIÓN,ESCALAR>,
L<C<glob>|/glob EXPR>, L<C<ioctl>|/ioctl
IDENTIFICADOR_ARCHIVO,FUNCIÓN,ESCALAR>, L<C<link>|/link
ARCHIVO_VIEJO,ARCHIVO_NUEVO>, L<C<lstat>|/lstat IDENTIFICADOR_ARCHIVO>,
L<C<mkdir>|/mkdir NOMBRE_ARCHIVO,MÁSCARA>, L<C<open>|/open

lib/POD2/ES/perlfunc.pod  view on Meta::CPAN

sistema Unix pueden no estar disponibles, o los detalles de la funcionalidad
disponible pueden diferir ligeramente. Las funciones Perl afectadas por esto
son:

L<C<-I<X>>|/-X IDENTIFICADOR_ARCHIVO>, L<C<binmode>|/binmode
IDENTIFICADOR_ARCHIVO, CAPA>, L<C<chmod>|/chmod LISTA>, L<C<chown>|/chown
LISTA>, L<C<chroot>|/chroot NOMBRE_ARCHIVO>, L<C<crypt>|/crypt
TEXTOPLANO,SALTO>, L<C<dbmclose>|/dbmclose HASH>, L<C<dbmopen>|/dbmopen
HASH,NOMBRE_BASE_DATOS,MÁSCARA>, L<C<dump>|/dump ETIQUETA>,
L<C<endgrent>|/endgrent>, L<C<endhostent>|/endhostent>,
L<C<endnetent>|/endnetent>, L<C<endprotoent>|/endprotoent>,

lib/POD2/ES/perlfunc.pod  view on Meta::CPAN

Note que L<C<chop>|/chop VARIABLE> devuelve el último carácter. Para devolver
todos menos el último carácter, use C<substr($string, 0, -1)>.

Vea también L<C<chomp>|/chomp VARIABLE>.

=item chown LISTA
X<chown> X<owner> X<user> X<group> X<propietario> X<usuario> X<grupo>

=for Pod::Functions change the ownership on a list of files

Cambia el propietario (y grupo) de una lista de archivos. Los primeros dos
elementos de la lista deben ser el valor I<numérico> del uid y gid, en este
orden. Un valor de -1 en cualquier posición es interpretado en la mayoría de
los sistemas como que se deja el actual valor sin cambiar. Devuelve el número
de archivos cambiados con éxito.

    my $cnt = chown $uid, $gid, 'foo', 'bar';
    chown $uid, $gid, @archivos;

En sistemas que soporten L<fchown(2)>, puede pasar identificadores de archivo
entre los archivos. En sistemas que no admiten L<fchown(2)>, pasar un
identificador de archivo lanza una excepción. Identificadores de archivo se
deben pasar como comodines o referencias a comodines para que sean reconocidos;
las palabras sueltas se consideran como nombres de archivo.

Aquí hay un ejemplo que obtiene el uid numérico a partir del archivo de

lib/POD2/ES/perlfunc.pod  view on Meta::CPAN

    my ($login,$pass,$uid,$gid) = getpwnam($usuario)
        or die "$usuario no está en archivo de contraseñas";

    my @ary = glob($patron);   # expande los nombres de los archivos
    chown $uid, $gid, @ary;

En la mayoría de los sistemas, no se le permite cambiar la propiedad del
archivo a menos que sea el superusuario, aunque sí pueda cambiar el grupo a
cualquiera de sus grupos secundarios. En sistemas inseguros, estas
restricciones pueden estar más relajadas, pero no es una suposición normal.
En sistemas POSIX, puede detectar esta condición de esta manera:

    use POSIX qw(sysconf _PC_CHOWN_RESTRICTED);
    my $puede_hacer_chown = ! sysconf(_PC_CHOWN_RESTRICTED);

Cuestiones de portabilidad: L<perlport/chown>.

=item chr NÚMERO
X<chr> X<character> X<ASCII> X<Unicode> X<carácter>

=item chr

 view release on metacpan or  search on metacpan

FR/perlfunc.pod  view on Meta::CPAN

générerait ici l'opérateur scalaire virgule, et non pas la version
construction de liste de la virgule. Ce qui signifie que ça n'a jamais été
considéré comme une liste avec laquelle travailler.

En général, les fonctions en Perl qui encapsulent les appels système du même
nom (comme chown(2), fork(2), closedir(2), etc.) retournent toutes vrai quand
elles réussissent et C<undef> sinon, comme c'est souvent mentionné
ci-dessous. C'est différent des S<interfaces C> qui retournent C<-1> en cas
d'erreur. Les exceptions à cette règle sont C<wait>, C<waitpid()> et
C<syscall()>. Les appels système positionnent aussi la variable spéciale C<$!>
en cas d'erreur. Les autres fonctions ne le font pas, sauf de manière

FR/perlfunc.pod  view on Meta::CPAN

C<pack>, C<read>, C<syscall>, C<sysread>, C<syswrite>, C<unpack>, C<vec>

=item Fonctions de descripteurs de fichiers, de fichiers ou de répertoires
X<fichier> X<filehandle> X<descripteur de fichier> X<répertoire> X<tube> X<lien> X<lien symbolique>

C<-I<X>>, C<chdir>, C<chmod>, C<chown>, C<chroot>, C<fcntl>, C<glob>,
C<ioctl>, C<link>, C<lstat>, C<mkdir>, C<open>, C<opendir>, C<readlink>,
C<rename>, C<rmdir>, C<stat>, C<symlink>, C<sysopen>, C<umask>, C<unlink>,
C<utime>

=item Mots-clés liés au contrôle d'exécution de votre programme Perl

FR/perlfunc.pod  view on Meta::CPAN

Perl est né sur Unix et peut, par conséquent, accéder à tous les appels
systèmes Unix courants. Dans des environnements non-Unix, les fonctionnalités
de certains appels systèmes Unix peuvent manquer ou différer sur certains
détails. Les fonctions Perl affectées par cela S<sont :>

C<-X>, C<binmode>, C<chmod>, C<chown>, C<chroot>, C<crypt>,
C<dbmclose>, C<dbmopen>, C<dump>, C<endgrent>, C<endhostent>,
C<endnetent>, C<endprotoent>, C<endpwent>, C<endservent>, C<exec>,
C<fcntl>, C<flock>, C<fork>, C<getgrent>, C<getgrgid>, C<gethostbyname>,
C<gethostent>, C<getlogin>, C<getnetbyaddr>, C<getnetbyname>, C<getnetent>,
C<getppid>, C<getpgrp>, C<getpriority>, C<getprotobynumber>,

FR/perlfunc.pod  view on Meta::CPAN

Notez que C<chop()> retourne le dernier caractère. Pour retourner tout
sauf le dernier caractère, utilisez C<substr($string, 0, -1)>.

Voir aussi L</chomp>.

=item chown LISTE
X<chown> X<propriétaire> X<utilisateur> X<groupe>

Change le propriétaire (et le groupe) d'une liste de fichiers. Les
deux premiers éléments de la liste doivent être, dans l'ordre, les uid
et gid I<numériques>. Une valeur -1 à l'une de ces positions est
interprétée par la plupart des systèmes comme une valeur à ne pas
modifier. Retourne le nombre de fichiers modifiés avec succès.

    $cnt = chown $uid, $gid, 'foo', 'bar';
    chown $uid, $gid, @filenames;

Sur les systèmes qui connaissent fchown, vous pouvez utiliser des
descripteurs de fichier à la place des noms de fichier. Sur les
systèmes ne connaissant pas fchown, cela produira une erreur fatal
lors de l'exécution.

Voici un exemple qui cherche les uid non numériques dans le fichier de
mots de S<passe :>

FR/perlfunc.pod  view on Meta::CPAN

    ($login,$pass,$uid,$gid) = getpwnam($user)
        or die "$user not in passwd file";

    @ary = glob($pattern);      # expansion des noms de fichiers
    chown $uid, $gid, @ary;

Sur la plupart des systèmes, vous n'êtes pas autorisé à changer le
propriétaire d'un fichier à moins d'être le super-utilisateur, même si avez la
possibilité de changer un groupe en l'un de vos groupes secondaires. Sur les
systèmes non sécurisés, ces restrictions peuvent être moindres, mais ceci
n'est pas une hypothèse portable. Sur les systèmes POSIX, vous pouvez détecter
cette condition de la manière S<suivante :>

    use POSIX qw(sysconf _PC_CHOWN_RESTRICTED);
    $can_chown_giveaway = not sysconf(_PC_CHOWN_RESTRICTED);

=item chr NOMBRE
X<chr> X<caractère> X<ASCII> X<Unicode>

=item chr

 view release on metacpan or  search on metacpan

IT/perlfunc.pod  view on Meta::CPAN

non l'operatore virgola che costruisce una lista. 
CiE<ograve> significa che quella non era una lista nemmeno in partenza.

In generale, le funzioni Perl che fungono da wrapper [involucro, interfaccia 
tra un programma ed un altro, NdT] per le chiamate di sistema che hanno lo 
stesso nome (come chown(2), fork(2), closedir(2), ecc.) restituiscono tutte 
vero quando hanno successo e C<undef> in caso contrario, come viene solitamente 
menzionato nelle descrizioni che seguono. CiE<ograve> differisce dall'interfaccia 
C, che restituisce C<-1> in caso di fallimento. Le eccezioni a questa regola sono 
C<wait>, C<waitpid> e C<syscall>. Le chiamate di sistema inoltre impostano la variabile
speciale C<$!> in caso di fallimento. Altre funzioni non lo fanno,

IT/perlfunc.pod  view on Meta::CPAN

C<pack>, C<read>, C<syscall>, C<sysread>, C<syswrite>, C<unpack>, C<vec>

=item Funzioni per filehandle, file o directory
X<file> X<filehandle> X<directory> X<pipe> X<link> X<symlink>

C<-I<X>>, C<chdir>, C<chmod>, C<chown>, C<chroot>, C<fcntl>, C<glob>,
C<ioctl>, C<link>, C<lstat>, C<mkdir>, C<open>, C<opendir>,
C<readlink>, C<rename>, C<rmdir>, C<stat>, C<symlink>, C<sysopen>,
C<umask>, C<unlink>, C<utime>

=item Parole chiave relative al controllo di flusso del vostro programma Perl

IT/perlfunc.pod  view on Meta::CPAN

chiamate di sistema Unix. In ambienti non-Unix, le funzionalitE<agrave> di 
alcune di queste chiamate potrebbe non essere disponibile, oppure i dettagli 
potrebbero essere un po' diversi. Le funzioni Perl influenzate da questo aspetto 
sono:

C<-X>, C<binmode>, C<chmod>, C<chown>, C<chroot>, C<crypt>,
C<dbmclose>, C<dbmopen>, C<dump>, C<endgrent>, C<endhostent>,
C<endnetent>, C<endprotoent>, C<endpwent>, C<endservent>, C<exec>,
C<fcntl>, C<flock>, C<fork>, C<getgrent>, C<getgrgid>, C<gethostbyname>,
C<gethostent>, C<getlogin>, C<getnetbyaddr>, C<getnetbyname>, C<getnetent>,
C<getppid>, C<getpgrp>, C<getpriority>, C<getprotobynumber>,

IT/perlfunc.pod  view on Meta::CPAN

Va notato che C<chop> restituisce l'ultimo carattere. Per ottenere tutto
tranne l'ultimo carattere, utilizzate C<substr($stringa, 0, -1)>.

Si veda anche L</chomp>.

=item chown LISTA
X<chown> X<owner> X<user> X<group>

Cambia il proprietario (ed il gruppo) di una lista di file. I primi due elementi della lista 
devono essere uid e gid I<numerici>, nell'ordine indicato. Un valore di -1 in una di queste due 
posizioni viene interpretato dalla maggior parte dei sistemi operativi come volontE<agrave> 
di non alterare tale valore. Restituisce il numero di file modificati con successo.

    $cnt = chown $uid, $gid, 'pippo', 'pluto';
    chown $uid, $gid, @nomifile;

Su sistemi che supportano fchown, potreste passare i file handle tra i file.
Su sistemi che non supportano fchmod, passare file handle
produce un errore fatale a tempo di esecuzione.

Di seguito E<egrave> riportato un esempio che risolve le uid non numeriche servendosi del file 
passwd:

IT/perlfunc.pod  view on Meta::CPAN

    ($login,$pass,$uid,$gid) = getpwnam($utente)
	or die "$utente non e` presente nel file passwd";

    @ary = glob($pattern);	# espande i nomi dei file
    chown $uid, $gid, @ary;

Sulla maggior parte dei sistemi, non E<egrave> consentito cambiare il proprietario dei file a 
meno che non si sia superuser. Dovreste tuttavia essere in grado di cambiare il gruppo 
impostandolo ad uno qualsiasi dei vostri gruppi secondari. Su sistemi non sicuri, queste 
restrizioni potrebbero essere meno rigide, ma assumere una cosa del genere non E<egrave> 
portabile. Sui sistemi POSIX, potete verificare questa condizione in questo modo:

    use POSIX qw(sysconf _PC_CHOWN_RESTRICTED);
    $chown_possibile = not sysconf(_PC_CHOWN_RESTRICTED);

=item chr NUMERO
X<chr> X<carattere> X<ASCII> X<Unicode>

=item chr

 view release on metacpan or  search on metacpan

lib/POD2/RU/perlfunc.pod  view on Meta::CPAN

the context at compile time.  It would generate the scalar comma operator
there, not the list construction version of the comma.  That means it
was never a list to start with.

In general, functions in Perl that serve as wrappers for system calls ("syscalls")
of the same name (like chown(2), fork(2), closedir(2), etc.) return
true when they succeed and C<undef> otherwise, as is usually mentioned
in the descriptions below.  This is different from the C interfaces,
which return C<-1> on failure.  Exceptions to this rule include C<wait>,
C<waitpid>, and C<syscall>.  System calls also set the special C<$!>
variable on failure.  Other functions do not, except accidentally.

lib/POD2/RU/perlfunc.pod  view on Meta::CPAN

=item Functions for filehandles, files, or directories
X<file> X<filehandle> X<directory> X<pipe> X<link> X<symlink>

=for Pod::Functions =File

C<-I<X>>, C<chdir>, C<chmod>, C<chown>, C<chroot>, C<fcntl>, C<glob>,
C<ioctl>, C<link>, C<lstat>, C<mkdir>, C<open>, C<opendir>,
C<readlink>, C<rename>, C<rmdir>, C<stat>, C<symlink>, C<sysopen>,
C<umask>, C<unlink>, C<utime>

=item Keywords related to the control flow of your Perl program

lib/POD2/RU/perlfunc.pod  view on Meta::CPAN

system calls.  In non-Unix environments, the functionality of some
Unix system calls may not be available or details of the available
functionality may differ slightly.  The Perl functions affected
by this are:

C<-X>, C<binmode>, C<chmod>, C<chown>, C<chroot>, C<crypt>,
C<dbmclose>, C<dbmopen>, C<dump>, C<endgrent>, C<endhostent>,
C<endnetent>, C<endprotoent>, C<endpwent>, C<endservent>, C<exec>,
C<fcntl>, C<flock>, C<fork>, C<getgrent>, C<getgrgid>, C<gethostbyname>,
C<gethostent>, C<getlogin>, C<getnetbyaddr>, C<getnetbyname>, C<getnetent>,
C<getppid>, C<getpgrp>, C<getpriority>, C<getprotobynumber>,

lib/POD2/RU/perlfunc.pod  view on Meta::CPAN

Note that C<chop> returns the last character.  To return all but the last
character, use C<substr($string, 0, -1)>.

See also L</chomp>.

=item chown LIST
X<chown> X<owner> X<user> X<group>

=for Pod::Functions change the ownership on a list of files

Changes the owner (and group) of a list of files.  The first two
elements of the list must be the I<numeric> uid and gid, in that
order.  A value of -1 in either position is interpreted by most
systems to leave that value unchanged.  Returns the number of files
successfully changed.

    $cnt = chown $uid, $gid, 'foo', 'bar';
    chown $uid, $gid, @filenames;

On systems that support fchown(2), you may pass filehandles among the
files.  On systems that don't support fchown(2), passing filehandles raises
an exception.  Filehandles must be passed as globs or glob references to be
recognized; barewords are considered filenames.

Here's an example that looks up nonnumeric uids in the passwd file:

lib/POD2/RU/perlfunc.pod  view on Meta::CPAN

    ($login,$pass,$uid,$gid) = getpwnam($user)
        or die "$user not in passwd file";

    @ary = glob($pattern);  # expand filenames
    chown $uid, $gid, @ary;

On most systems, you are not allowed to change the ownership of the
file unless you're the superuser, although you should be able to change
the group to any of your secondary groups.  On insecure systems, these
restrictions may be relaxed, but this is not a portable assumption.
On POSIX systems, you can detect this condition this way:

    use POSIX qw(sysconf _PC_CHOWN_RESTRICTED);
    $can_chown_giveaway = not sysconf(_PC_CHOWN_RESTRICTED);

Portability issues: L<perlport/chmod>.

=item chr NUMBER
X<chr> X<character> X<ASCII> X<Unicode>

 view release on metacpan or  search on metacpan

examples/fuse.pl  view on Meta::CPAN

	}

	return;
}

sub fuse_chown : State {
	my( $postback, $context, $path, $uid, $gid ) = @_[ ARG0 .. ARG4 ];
	#print "CHOWN: '$path' - '$uid' - '$gid'\n";

	if ( exists $files{ $path } ) {
		# okay, update the ownerships!!

 view release on metacpan or  search on metacpan

Debian_CPANTS.txt  view on Meta::CPAN

"libjson-any-perl", "JSON-Any", "1.19", "0", "0"
"libjson-perl", "JSON", "2.14", "0", "0"
"libjson-xs-perl", "JSON-XS", "2.232", "0", "0"
"libkwiki-cache-perl", "Kwiki-Cache", "0.11", "0", "0"
"libkwiki-perl", "Kwiki", "0.39", "0", "0"
"liblchown-perl", "Lchown", "1.00", "0", "0"
"liblexical-persistence-perl", "Lexical-Persistence", "0.98", "0", "0"
"liblingua-en-inflect-perl", "Lingua-EN-Inflect", "1.89", "0", "0"
"liblingua-en-nameparse-perl", "Lingua-EN-NameParse", "1.24", "0", "0"
"liblingua-en-numbers-ordinate-perl", "Lingua-EN-Numbers-Ordinate", "1.02", "0", "0"
"liblingua-es-numeros-perl", "Lingua-ES-Numeros", "0.05", "0", "0"

 view release on metacpan or  search on metacpan

lib/POE/Devel/ProcAlike.pm  view on Meta::CPAN

that would be valid across multiple invocations. If we allowed module authors to register any name, then we would
end up with possible collisions and wacky schemes like "$pkg$ses->ID" as the name...

Also, here's a tip: you don't have to implement the entire L<Filesys::Virtual::Async> API because FUSE doesn't use
them all! The ones you would have to do is: rmtree, scandir, move, copy, load, readdir, rmdir, mkdir, rename, mknod,
unlink, chmod, truncate, chown, utime, stat, write, open. To save even more time, you can subclass the
L<Filesys::Virtual::Async::inMemory> module and set readonly to true. Then you would have to subclass only those
methods: readdir, stat, open.

=head2 TODO

 view release on metacpan or  search on metacpan

lib/POSIX/1003/FS.pm  view on Meta::CPAN

# POSIX.xs defines L_ctermid L_cuserid L_tmpname: useless!

my @functions = qw/
 mkfifo mknod stat lstat rename
 access lchown
 utime
 major minor makedev
 /;

our @IN_CORE     = qw(utime mkdir stat lstat rename);

lib/POSIX/1003/FS.pm  view on Meta::CPAN

    my %access_subset;
    @access_subset{@access} = @{$fsys}{@access};
    tie %access,  'POSIX::1003::ReadOnlyTable', \%access_subset;

    # initialize the :stat export tag
    @stat = qw/stat lstat mkfifo mknod mkdir lchown
        S_ISDIR S_ISCHR S_ISBLK S_ISREG S_ISFIFO S_ISLNK S_ISSOCK S_ISWHT
        /;
    push @stat, grep /^S_I/, keys %$fsys;
    my %stat_subset;
    @stat_subset{@stat} = @{$fsys}{@stat};

lib/POSIX/1003/FS.pm  view on Meta::CPAN

sub S_ISLNK($)  { ($_[0] & S_IFMT()) == S_IFLNK()}
sub S_ISSOCK($) { ($_[0] & S_IFMT()) == S_IFSOCK()}
sub S_ISWHT($)  { ($_[0] & S_IFMT()) == S_IFWHT()}  # FreeBSD


sub lchown($$@)
{   my ($uid, $gid) = (shift, shift);
    my $successes = 0;
    POSIX::lchown($uid, $gid, $_) && $successes++ for @_;
    $successes;
}


sub posix_glob($%)

 view release on metacpan or  search on metacpan

lib/POSIX/2008.pm  view on Meta::CPAN

  atoll => 'atoi',
  ldiv => 'div',
  lldiv => 'div',
  fchdir => 'chdir',
  fchmod => 'chmod',
  fchown => 'chown',
  ftruncate => 'truncate',
);
my %deprecated_warned;

push @EXPORT_OK, keys %deprecated;

 view release on metacpan or  search on metacpan

lib/POSIX/RT/SharedMem.pm  view on Meta::CPAN

Extra flags that are used when opening the shared memory object (e.g. C<O_EXCL>).

=back

It returns a filehandle that can be used to with L<stat>, L<chmod>, L<chown>. For portability you should not assume you can read or write directly from it.

=head2 shared_unlink $name

Remove the shared memory object $name from the namespace. Note that while the shared memory object can't be opened anymore after this, it doesn't remove the contents until all processes have closed it.

 view release on metacpan or  search on metacpan

lib/POSIX/RT/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/POSIX/RT/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/POSIX/RT/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/POSIX/RT/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

out  view on Meta::CPAN

21783 ioctl(8, TCGETS, 0x7ffffff2aa40)  = -1 ENOTTY (Inappropriate ioctl for device)
21783 lseek(8, 0, SEEK_CUR)             = 0
21783 read(8, "# This file was created by configpm when Perl was built. Any changes\n# made to this file will be lost the next time perl is built.\n\npackage Config;\nuse strict;\nuse warnings;\nour %Config;\n\nsub bincompat_options {\n    return spl...
21783 brk(0x227b000)                    = 0x227b000
21783 read(8, "LIGNMENT__=16 __BYTE_ORDER__=1234 __CHAR16_TYPE__=short\\ unsigned\\ int __CHAR32_TYPE__=unsigned\\ int __CHAR_BIT__=8 __DBL_DECIMAL_DIG__=17 __DBL_DENORM_MIN__=((double)4.94065645841246544177e-324L) __DBL_DIG__=15 __DBL_EPSILON__=((do...
21783 read(8, "='define'\nd_difftime64='undef'\nd_dir_dd_fd='undef'\nd_dirfd='define'\nd_dirnamlen='undef'\nd_dladdr='define'\nd_dlerror='define'\nd_dlopen='define'\nd_dlsymun='undef'\nd_dosuid='undef'\nd_double_has_inf='define'\nd_double_has_nan='de...
21783 read(8, "klen_t='define'\nd_sockpair='define'\nd_socks5_init='undef'\nd_sqrtl='define'\nd_srand48_r='define'\nd_srandom_r='define'\nd_sresgproto='define'\nd_sresuproto='define'\nd_stat='define'\nd_statblks='define'\nd_statfs_f_flags='define'\nd...
21783 read(8, "\ni_vfork='undef'\ni_wchar='define'\ni_wctype='define'\ni_xlocale='define'\nignore_versioned_solibs='y'\ninc_version_list=' '\ninc_version_list_init='0'\nincpath=''\nincpth='/usr/lib64/gcc/x86_64-slackware-linux/5.3.0/include /usr/loca...
21783 read(8, "lse'\nsGMTIME_max='67768036191676799'\nsGMTIME_min='-62167219200'\nsLOCALTIME_max='67768036191676799'\nsLOCALTIME_min='-62167219200'\nsPRIEUldbl='\"LE\"'\nsPRIFUldbl='\"LF\"'\nsPRIGUldbl='\"LG\"'\nsPRIXU64='\"lX\"'\nsPRId64='\"ld\"'\ns...
21783 read(8, "ne ending for print\n\n\t# all config-vars are by definition \\w only, any \\W means regex\n\tif ($qry =~ /\\W/) {\n\t    my @matches = config_re($qry);\n\t    print map \"$_$lnend\", @matches ? @matches : \"$qry: not found\"\t\tif !$n...
21783 brk(0x229d000)                    = 0x229d000

 view release on metacpan or  search on metacpan

lib/PPI/Singletons.pm  view on Meta::CPAN

);

# List of keywords is from regen/keywords.pl in the perl source.
our %KEYWORDS = map { $_ => 1 } qw{
	abs accept alarm and atan2 bind binmode bless break caller chdir chmod
	chomp chop chown chr chroot close closedir cmp connect continue cos
	crypt dbmclose dbmopen default defined delete die do dump each else
	elsif endgrent endhostent endnetent endprotoent endpwent endservent
	eof eq eval evalbytes exec exists exit exp fc fcntl fileno flock for
	foreach fork format formline ge getc getgrent getgrgid getgrnam
	gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr

 view release on metacpan or  search on metacpan

lib/PPIx/Utils/Classification.pm  view on Meta::CPAN

# egrep '=item.*LIST' perlfunc.pod
my %BUILTINS_WHICH_PROVIDE_LIST_CONTEXT =
    map { $_ => 1 }
        qw{
            chmod
            chown
            die
            exec
            formline
            grep
            import

 view release on metacpan or  search on metacpan

bin/gen_builtin_expr.pl  view on Meta::CPAN

           'caller',
           'chdir',
           'chmod',
           'chomp',
           'chop',
           'chown',
           'chr',
           'chroot',
           'close',
           'closedir',
           'connect',

 view release on metacpan or  search on metacpan

lib/Package/Builder.pm  view on Meta::CPAN

    #change uid if necessary
    $uid = getUserId($uid);
    $gid = getGroupId($gid);
    find(
        sub {
            chown $uid, $gid, $_;
        },
        $tmp_dir
    );
    }
    chdir $cwdir;

 view release on metacpan or  search on metacpan

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

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/Padre/Wx/Scintilla.pm  view on Meta::CPAN

	# Perl Keywords
	q{
		NULL __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ AUTOLOAD
		BEGIN CORE DESTROY END EQ GE GT INIT LE LT NE CHECK 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 getnetbyaddr getnetbyname getnetent getpeername

 view release on metacpan or  search on metacpan

lib/Pantry/App/Command/sync.pm  view on Meta::CPAN

  # ensure destination directory and ownership
  my $dest_dir = $self->_remote_pantry_dir;
  $ssh->system($sudo . "mkdir -p $dest_dir")
    or die "Could not create $dest_dir\n";
  if ( $sudo ) {
    $ssh->system($sudo . "chown $user $dest_dir")
      or die "Could not chown $dest_dir to $user\n";
  }

  # generate local solo.rb and rsync it to /etc/chef/solo.rb
  my ($fh, $solo_rb) = tempfile( "pantry-solo.rb-XXXXXX", TMPDIR => 1 );
  print {$fh} $self->_solo_rb_guts;

lib/Pantry/App/Command/sync.pm  view on Meta::CPAN

  my $command = $sudo_i . "chef-solo -c $dest_dir/solo.rb";
  $command .= " -l debug" if $ENV{PANTRY_CHEF_DEBUG};
  $ssh->system({tty => $sudo ? 1 : 0}, $command) # XXX eventually capture output
    or die "Error running chef-solo\n";
  # cleanup report permissions if running under sudo so we can find/download it
  $ssh->system($sudo . "chown -R $user $dest_dir/reports") if $sudo;
  # scp get run report
  my $report = $ssh->capture("ls -t $dest_dir/reports | head -1");
  chomp $report;
  # XXX should check that the report timestamp makes sense -- xdg, 2012-05-03

 view release on metacpan or  search on metacpan

inc/File/Temp.pm  view on Meta::CPAN

  unless (-d $parent) {
    ${$options{ErrStr}} = "Parent directory ($parent) is not a directory";
    return ();
  }

  # Check the stickiness of the directory and chown giveaway if required
  # If the directory is world writable the sticky bit
  # must be set

  if (File::Temp->safe_level == MEDIUM) {
    my $safeerr;

inc/File/Temp.pm  view on Meta::CPAN

  return 1;
}

# Internal routine to check whether a directory is safe
# for temp files. Safer than _is_safe since it checks for
# the possibility of chown giveaway and if that is a possibility
# checks each directory in the path to see if it is safe (with _is_safe)

# If _PC_CHOWN_RESTRICTED is not set, does the full test of each
# directory anyway.

inc/File/Temp.pm  view on Meta::CPAN

  my $err_ref = shift;

  # Should Get the value of _PC_CHOWN_RESTRICTED if it is defined
  # and If it is not there do the extensive test
  local($@);
  my $chown_restricted;
  $chown_restricted = &POSIX::_PC_CHOWN_RESTRICTED()
    if eval { &POSIX::_PC_CHOWN_RESTRICTED(); 1};

  # If chown_resticted is set to some value we should test it
  if (defined $chown_restricted) {

    # Return if the current directory is safe
    return _is_safe($path,$err_ref) if POSIX::sysconf( $chown_restricted );

  }

  # To reach this point either, the _PC_CHOWN_RESTRICTED symbol
  # was not available or the symbol was there but chown giveaway
  # is allowed. Either way, we now have to test the entire tree for
  # safety.

  # Convert path to an absolute directory if required
  unless (File::Spec->file_name_is_absolute($path)) {

inc/File/Temp.pm  view on Meta::CPAN

#pod for sticky bit.
#pod
#pod =item HIGH
#pod
#pod In addition to the MEDIUM security checks, also check for the
#pod possibility of ``chown() giveaway'' using the L<POSIX|POSIX>
#pod sysconf() function. If this is a possibility, each directory in the
#pod path is checked in turn for safeness, recursively walking back to the
#pod root directory.
#pod
#pod For platforms that do not support the L<POSIX|POSIX>
#pod C<_PC_CHOWN_RESTRICTED> symbol (for example, Windows NT) it is
#pod assumed that ``chown() giveaway'' is possible and the recursive test
#pod is performed.
#pod
#pod =back
#pod
#pod The level can be changed as follows:

 view release on metacpan or  search on metacpan

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

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||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

c/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

c/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/Paranoid.pm  view on Meta::CPAN

#no ops qw(backtick system exec);
#  :subprocess = system, backtick, exec, fork, glob
#  :dangerous = syscall, dump, chroot
#  :others = mostly IPC stuff
#  :filesys_write = link, unlink, rename, mkdir, rmdir, chmod,
#                   chown, fcntl
#  :sys_db = getpwnet, etc.
#}

sub psecureEnv (;$) {

lib/Paranoid.pm  view on Meta::CPAN

places considered dangerous under perl's taint mode.  The following functions
should generally have their arguments detainted before using:

  exec        system      open        glob
  unlink      mkdir       chdir       rmdir
  chown       chmod       umask       utime
  link        symlink     kill        eval
  truncate    ioctl       fcntl       chroot
  setpgrp     setpriority syscall     socket
  socketpair  bind        connect

 view release on metacpan or  search on metacpan

contrib/example/deploy.sh  view on Meta::CPAN

	echo "directory missing: $DIR";
	exit;
fi

cp -a ./parley/root/static/user_file ./$DIR/root/static/ 2>/dev/null
sudo chown -R parley:www-data ./$DIR/root/static/user_file/
ls ./$DIR/root/static/user_file/

(cd $DIR && perl Makefile.PL)

./parley/script/parley_email_engine.pl stop