Result:
found more than 1183 distributions - search limited to the first 2001 files matching your query
( run in 1.882 )
TAP3-Tap3edit
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:
TOON-XS
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
TT2-Play-Area
view release on metacpan or search on metacpan
lib/auto/TT2/Play/Area/public/codemirror/mode/perl/perl.js view on Meta::CPAN
caller :1, // - get context of the current subroutine call
chdir :1, // - change your current working directory
chmod :1, // - changes the permissions on a list of files
chomp :1, // - remove a trailing record separator from a string
chop :1, // - remove the last character from a string
chown :1, // - change the ownership on a list of files
chr :1, // - get character this number represents
chroot :1, // - make directory new root for path lookups
close :1, // - close file (or pipe or socket) handle
closedir :1, // - close directory handle
connect :1, // - connect to a remote socket
TableDataBundle-CPAN-Release-Static-Older
view release on metacpan or search on metacpan
share/2003.csv view on Meta::CPAN
LaBrea-Tarpit-1.18,2003-09-30T00:14:07,MIKER,backpan,released,1.18,,LaBrea-Tarpit,"Utilities and web displays for Tom Liston's LaBrea scanner/worm disruptor"
Mail-SpamCannibal-0.14,2003-09-30T01:15:20,MIKER,backpan,released,0.14,,Mail-SpamCannibal,"A tool to stop SPAM"
Authen-Tcpdmatch-0.01,2003-09-30T02:22:51,IOANNIS,cpan,released,0.01,1,Authen-Tcpdmatch,"Perl extension for parsing hosts.allow and hosts.deny"
Sys-HostIP-1.3.1,2003-09-30T03:55:41,BLUELINES,cpan,released,1.3.1,,Sys-HostIP,"Try extra hard to get ip address related info"
Authen-Tcpdmatch-0.02,2003-09-30T04:53:33,IOANNIS,backpan,released,0.02,,Authen-Tcpdmatch,"Perl extension for parsing hosts.allow and hosts.deny"
Lchown-0.04,2003-09-30T05:23:48,NCLEATON,backpan,released,0.04,1,Lchown,"use the lchown(2) system call from Perl"
Lchown-0.05,2003-09-30T05:49:56,NCLEATON,backpan,released,0.05,,Lchown,"use the lchown(2) system call from Perl"
metaconfig-for-Perl-5.8.1,2003-09-30T06:41:45,JHI,cpan,released,v5.8.1,,metaconfig-for-Perl,
OODoc-0.09,2003-09-30T08:01:05,MARKOV,backpan,released,0.09,,OODoc,"object oriented production of code documentation"
Finance-YahooJPN-Quote-0.08,2003-09-30T08:28:14,HATA,backpan,released,0.08,1,Finance-YahooJPN-Quote,"fetch a quote of Japanese stock market"
MKDoc-XML-0.53,2003-09-30T09:53:39,JHIVER,backpan,released,0.53,,MKDoc-XML,"The MKDoc XML Toolkit"
File-Scan-0.68,2003-09-30T10:33:39,HDIAS,cpan,released,0.68,,File-Scan,"Perl extension for Scanning files for Viruses"
share/2003.csv view on Meta::CPAN
Thread-Synchronized-0.02,2003-09-30T21:39:29,ELIZABETH,backpan,released,0.02,1,Thread-Synchronized,"synchronize subroutine calls between threads"
POE-Sugar-Args-1.3,2003-09-30T22:04:01,CWEST,latest,released,1.3,,POE-Sugar-Args,"Get ""pretty"", OO representation of args."
Module-Info-File-0.01,2003-09-30T22:18:33,JONASBN,backpan,released,0.01,1,Module-Info-File,"extracts module data from installed and uninstalled modules"
Text-Scan-0.16,2003-09-30T22:18:49,IWOODHEAD,backpan,released,0.16,,Text-Scan,"Fast search for very large numbers of keys in a body of text."
Net-Traces-SSFNet-0.01,2003-10-01T04:35:55,KOSTAS,backpan,released,0.01,1,Net-Traces-SSFNet,"Analyze traces generated by SSFNet"
Lchown-0.06,2003-10-01T04:46:21,NCLEATON,backpan,released,0.06,,Lchown,"use the lchown(2) system call from Perl"
PHP-Session-0.21,2003-10-01T05:42:38,MIYAGAWA,backpan,released,0.21,,PHP-Session,"read / write PHP session files"
Class-Member-1.2,2003-10-01T09:21:20,OPI,backpan,released,1.2,,Class-Member,"A set of modules to make the module developement easier"
Class-Member-1.2a,2003-10-01T10:16:06,OPI,backpan,released,1.2,,Class-Member,"A set of modules to make the module developement easier"
Pangloss-0.04,2003-10-01T10:52:58,SPURKIS,backpan,released,0.04,,Pangloss,"Build script generator for Pangloss"
Module-Info-0.24,2003-10-01T11:55:42,MBARBON,backpan,released,0.24,,Module-Info,"Basic utilities for writing tests."
TableDataBundle-Perl-CPAN-Release-Static-Older
view release on metacpan or search on metacpan
share/2003.csv view on Meta::CPAN
LaBrea-Tarpit-1.18,2003-09-30T00:14:07,MIKER,backpan,released,1.18,,LaBrea-Tarpit,"Utilities and web displays for Tom Liston's LaBrea scanner/worm disruptor"
Mail-SpamCannibal-0.14,2003-09-30T01:15:20,MIKER,backpan,released,0.14,,Mail-SpamCannibal,"A tool to stop SPAM"
Authen-Tcpdmatch-0.01,2003-09-30T02:22:51,IOANNIS,cpan,released,0.01,1,Authen-Tcpdmatch,"Perl extension for parsing hosts.allow and hosts.deny"
Sys-HostIP-1.3.1,2003-09-30T03:55:41,BLUELINES,cpan,released,1.3.1,,Sys-HostIP,"Try extra hard to get ip address related info"
Authen-Tcpdmatch-0.02,2003-09-30T04:53:33,IOANNIS,backpan,released,0.02,,Authen-Tcpdmatch,"Perl extension for parsing hosts.allow and hosts.deny"
Lchown-0.04,2003-09-30T05:23:48,NCLEATON,backpan,released,0.04,1,Lchown,"use the lchown(2) system call from Perl"
Lchown-0.05,2003-09-30T05:49:56,NCLEATON,backpan,released,0.05,,Lchown,"use the lchown(2) system call from Perl"
metaconfig-for-Perl-5.8.1,2003-09-30T06:41:45,JHI,cpan,released,v5.8.1,,metaconfig-for-Perl,
OODoc-0.09,2003-09-30T08:01:05,MARKOV,backpan,released,0.09,,OODoc,"object oriented production of code documentation"
Finance-YahooJPN-Quote-0.08,2003-09-30T08:28:14,HATA,backpan,released,0.08,1,Finance-YahooJPN-Quote,"fetch a quote of Japanese stock market"
MKDoc-XML-0.53,2003-09-30T09:53:39,JHIVER,backpan,released,0.53,,MKDoc-XML,"The MKDoc XML Toolkit"
File-Scan-0.68,2003-09-30T10:33:39,HDIAS,cpan,released,0.68,,File-Scan,"Perl extension for Scanning files for Viruses"
share/2003.csv view on Meta::CPAN
Thread-Synchronized-0.02,2003-09-30T21:39:29,ELIZABETH,backpan,released,0.02,1,Thread-Synchronized,"synchronize subroutine calls between threads"
POE-Sugar-Args-1.3,2003-09-30T22:04:01,CWEST,latest,released,1.3,,POE-Sugar-Args,"Get ""pretty"", OO representation of args."
Module-Info-File-0.01,2003-09-30T22:18:33,JONASBN,backpan,released,0.01,1,Module-Info-File,"extracts module data from installed and uninstalled modules"
Text-Scan-0.16,2003-09-30T22:18:49,IWOODHEAD,backpan,released,0.16,,Text-Scan,"Fast search for very large numbers of keys in a body of text."
Net-Traces-SSFNet-0.01,2003-10-01T04:35:55,KOSTAS,backpan,released,0.01,1,Net-Traces-SSFNet,"Analyze traces generated by SSFNet"
Lchown-0.06,2003-10-01T04:46:21,NCLEATON,backpan,released,0.06,,Lchown,"use the lchown(2) system call from Perl"
PHP-Session-0.21,2003-10-01T05:42:38,MIYAGAWA,backpan,released,0.21,,PHP-Session,"read / write PHP session files"
Class-Member-1.2,2003-10-01T09:21:20,OPI,backpan,released,1.2,,Class-Member,"A set of modules to make the module developement easier"
Class-Member-1.2a,2003-10-01T10:16:06,OPI,backpan,released,1.2,,Class-Member,"A set of modules to make the module developement easier"
Pangloss-0.04,2003-10-01T10:52:58,SPURKIS,backpan,released,0.04,,Pangloss,"Build script generator for Pangloss"
Module-Info-0.24,2003-10-01T11:55:42,MBARBON,backpan,released,0.24,,Module-Info,"Basic utilities for writing tests."
Task-BeLike-PERLANCAR-Used
view release on metacpan or search on metacpan
lib/Task/BeLike/PERLANCAR/Used.pm view on Meta::CPAN
=head3 L<File::Which::Patch::Hide> 0
=head3 L<File::Write::Rotate> 0.28
=head3 L<File::chown> 0
=head3 L<Filename::Archive> 0.033
=head3 L<Filename::Audio> 0.004
Task-Cpanel-Core
view release on metacpan or search on metacpan
lib/Task/Cpanel/Core.pm view on Meta::CPAN
=cut
use LWP::Protocol::https;
=item L<Lchown|Lchown>
Use the lchown(2) system call from Perl
=cut
use Lchown;
=item L<Linux::Inotify2|Linux::Inotify2>
scalable directory/file change notification
Task-Perl-Critic
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"liblatex-decode-perl", "LaTeX-Decode", "0.03", "0", "1"
"liblatex-driver-perl", "LaTeX-Driver", "0.08", "0", "6"
"liblatex-encode-perl", "LaTeX-Encode", "0.03", "1", "1"
"liblatex-table-perl", "LaTeX-Table", "1.0.6", "0", "0"
"liblayout-manager-perl", "Layout-Manager", "0.34", "0", "0"
"liblchown-perl", "Lchown", "1.01", "0", "0"
"liblexical-persistence-perl", "Lexical-Persistence", "0.98", "1", "0"
"liblingua-en-inflect-number-perl", "Lingua-EN-Inflect-Number", "1.1", "0", "0"
"liblingua-en-inflect-perl", "Lingua-EN-Inflect", "1.893", "0", "1"
"liblingua-en-inflect-phrase-perl", "Lingua-EN-Inflect-Phrase", "0.04", "0", "0"
"liblingua-en-nameparse-perl", "Lingua-EN-NameParse", "1.30", "0", "2"
Tcl-Tk-Tkwidget-Tix
view release on metacpan or search on metacpan
tclconfig/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}"
instcmd="$mvprog"
chmodcmd=""
chowncmd=""
chgrpcmd=""
stripcmd=""
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=""
tclconfig/install-sh view on Meta::CPAN
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-g) chgrpcmd="$chgrpprog $2"
tclconfig/install-sh view on Meta::CPAN
$doit $instcmd $src $dsttmp
# and set any options; do chmod last to preserve setuid bits
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; fi
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; fi
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; fi
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; fi
# Now rename the file to the real destination.
Tcl-Tk-Tkwidget-treectrl
view release on metacpan or search on metacpan
shellicon/tclconfig/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}"
instcmd="$mvprog"
chmodcmd=""
chowncmd=""
chgrpcmd=""
stripcmd=""
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=""
shellicon/tclconfig/install-sh view on Meta::CPAN
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-g) chgrpcmd="$chgrpprog $2"
shellicon/tclconfig/install-sh view on Meta::CPAN
$doit $instcmd $src $dsttmp
# and set any options; do chmod last to preserve setuid bits
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; fi
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; fi
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; fi
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; fi
# Now rename the file to the real destination.
Template-TT2Site
view release on metacpan or search on metacpan
- util/image: can take a partial image object, or an image name.
Missing data (e.g. image dimensions) will be automatically filled
in (Ticket #11245).
- util/image: add optional title attribute (Ticket #11246).
- Eliminate chown warnings on setup (Ticket #11204).
* 0.94 Jan 16, 2005
- Add site.design (in page/footer).
- Add XML heading (page/html).
Template-Toolkit
view release on metacpan or search on metacpan
lib/Template/App/ttree.pm view on Meta::CPAN
unless (-d $target || $dryrun) {
mkpath($target, $verbose, $mode) or
die red("Could not mkpath ($target): $!\n");
# commented out by abw on 2000/12/04 - seems to raise a warning?
# chown($uid, $gid, $target) || warn "chown($target): $!\n";
$$n_mkdir++;
$self->emit_log( green( sprintf " + %-32s (created target directory)\n", $path ) )
if $verbose;
}
lib/Template/App/ttree.pm view on Meta::CPAN
$$n_copy++;
unless ($dryrun) {
copy($absfile, $dest) or die red("Could not copy ($absfile to $dest) : $!\n");
if ($preserve) {
chown($uid, $gid, $dest) || $self->emit_warn( red("chown($dest): $!\n") );
chmod($mode, $dest) || $self->emit_warn( red("chmod($dest): $!\n") );
}
}
$self->emit_log( green( sprintf " > %-32s (copied, matches $check)\n", $file ) )
lib/Template/App/ttree.pm view on Meta::CPAN
$template->process($file, $replace, $destfile,
$binmode ? {binmode => $binmode} : {})
|| $self->emit_log(red(" ! "), $template->error(), "\n");
if ($preserve) {
chown($uid, $gid, $dest) || $self->emit_warn( red("chown($dest): $!\n") );
chmod($mode, $dest) || $self->emit_warn( red("chmod($dest): $!\n") );
}
}
}
Term-Menus
view release on metacpan or search on metacpan
lib/Term/Menus.pm view on Meta::CPAN
4 basename
5 bash
6 cat
7 chgrp
8 chmod
9 chown
10 cp
a. Select All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
* 7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4. /bin Utility - basename
5. /bin Utility - bash
6. /bin Utility - cat
7. /bin Utility - chgrp
8. /bin Utility - chmod
9. /bin Utility - chown
10. /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
as if the items were selected by the user. This can be done with two
constructs - simple string or pre-compiled regular expression.
Note: The C<Default> element is available only when the C<Select> element
is set to C<'Many'> - C<Select => 'Many',>
Default => 'base|chown',
Default => qr/base|chown/i,
The user sees ==>
Choose a /bin Utility :
lib/Term/Menus.pm view on Meta::CPAN
* 4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
* 9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
The I<Exclude> element provides a means to remove matching elements
from the Menu seen by the user. This element is useful only when the
C<]Convey[> macro is used to populate items. This can be done with two
constructs - simple string or pre-compiled regular expression.
Exclude => 'base|chown',
Exclude => qr/base|chown/i,
=back
=item
lib/Term/Menus.pm view on Meta::CPAN
refine the final list of items used to construct the menu. The C<Include>
element - when used - always takes presidence, and the C<Exclude> will be used
only on the C<Include> filtered results. This element can be used with
two value constructs - simple string or pre-compiled regular expression.
Include => 'base|chown',
Include => qr/base|chown/i,
=back
=item
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
([ESC] to Quit) PLEASE ENTER A CHOICE:
--< 5 >-<ENTER>----------------------------------
lib/Term/Menus.pm view on Meta::CPAN
4. /bin Utility - basename
5. /bin Utility - bash
6. /bin Utility - cat
7. /bin Utility - chgrp
8. /bin Utility - chmod
9. /bin Utility - chown
10. /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
- 5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4. /bin Utility - basename
+ 5. /bin Utility - bash
6. /bin Utility - cat
7. /bin Utility - chgrp
8. /bin Utility - chmod
9. /bin Utility - chown
10. /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
Term-ReadLine-Gnu
view release on metacpan or search on metacpan
syscall sysread sysseek syswrite tell telldir
truncate warn write
pack read syscall sysread syswrite unpack vec
chdir chmod chown chroot fcntl glob ioctl
link lstat mkdir open opendir readlink rename
rmdir stat symlink umask unlink utime
caller continue die do dump eval exit goto
last next redo return sub wantarray
Test-AutoBuild
view release on metacpan or search on metacpan
lib/Test/AutoBuild/Lib.pm view on Meta::CPAN
my $file = shift;
my $sb = shift;
confess "called setStats with an undefined file" unless defined $file;
confess "called setStats with an undefined sb" unless defined $sb;
chmod ($sb->mode, $file);
chown ($sb->uid, $sb->gid, $file);
}
sub delete_files {
my $dir = shift;
Test-Cmd
view release on metacpan or search on metacpan
t/writable.t view on Meta::CPAN
# Make sure we can call with the optional error-collecting hash.
# It would be good to check that this does, in fact, collect errors,
# but the only two ways I can think of to get chmod() to generate an
# error are a non-existent file (which won't happen because
# finddepth() only calls its routine for existing files) or a file
# owned by someone else. We can't rely on being able to chown()
# a file unless we're root, though, and if we're root, the file will
# be writable because root can write to anything. So just punt on
# this for now.
my %errs;
$ret = $test->writable($wdir, 0, \%errs);
Test-DBIx-Class
view release on metacpan or search on metacpan
pp_caller ../perl/lib/B/Deparse.pm /^sub pp_caller { unop(@_, "caller") }$/;" s class:Deparse
pp_chdir ../perl/lib/B/Deparse.pm /^sub pp_chdir {$/;" s class:Deparse
pp_chmod ../perl/lib/B/Deparse.pm /^sub pp_chmod { maybe_targmy(@_, \\&listop, "chmod") }$/;" s class:Deparse
pp_chomp ../perl/lib/B/Deparse.pm /^sub pp_chomp { maybe_targmy(@_, \\&unop, "chomp") }$/;" s class:Deparse
pp_chop ../perl/lib/B/Deparse.pm /^sub pp_chop { maybe_targmy(@_, \\&unop, "chop") }$/;" s class:Deparse
pp_chown ../perl/lib/B/Deparse.pm /^sub pp_chown { maybe_targmy(@_, \\&listop, "chown") }$/;" s class:Deparse
pp_chr ../perl/lib/B/Deparse.pm /^sub pp_chr { maybe_targmy(@_, \\&unop, "chr") }$/;" s class:Deparse
pp_chroot ../perl/lib/B/Deparse.pm /^sub pp_chroot { maybe_targmy(@_, \\&unop, "chroot") }$/;" s class:Deparse
pp_close ../perl/lib/B/Deparse.pm /^sub pp_close { unop(@_, "close") }$/;" s class:Deparse
pp_closedir ../perl/lib/B/Deparse.pm /^sub pp_closedir { unop(@_, "closedir") }$/;" s class:Deparse
pp_complement ../perl/lib/B/Deparse.pm /^sub pp_complement { maybe_targmy(@_, \\&pfixop, "~", 21) }$/;" s class:Deparse
Test-MockFile
view release on metacpan or search on metacpan
lib/Test/MockFile.pm view on Meta::CPAN
sub file_arg_position_for_command { # can also be used by user hooks
my ( $command, $at_under_ref ) = @_;
$_file_arg_post //= {
'chmod' => 1,
'chown' => 2,
'lstat' => 0,
'mkdir' => 0,
'open' => 2,
'opendir' => 1,
'link' => 0,
lib/Test/MockFile.pm view on Meta::CPAN
'closedir' => sub (*) { goto \&__closedir },
'unlink' => sub (@) { goto \&__unlink },
'readlink' => sub (_) { goto \&__readlink },
'mkdir' => sub (_;$) { goto \&__mkdir },
'rmdir' => sub (_) { goto \&__rmdir },
'chown' => sub (@) { goto \&__chown },
'chmod' => sub (@) { goto \&__chmod },
'rename' => sub ($$) { goto \&__rename },
'link' => sub ($$) { goto \&__link },
'symlink' => sub ($$) { goto \&__symlink },
'truncate' => sub ($$) { goto \&__truncate },
lib/Test/MockFile.pm view on Meta::CPAN
my $file = _find_file_or_fh($file_path) or return;
return $files_being_mocked{$file};
}
# Like _get_file_object but follows symlinks (for chmod, chown, utime, truncate).
# Returns BROKEN_SYMLINK or CIRCULAR_SYMLINK sentinels on symlink errors,
# the mock object on success, or undef if not mocked.
sub _get_file_object_follow_link {
my ($file_path) = @_;
lib/Test/MockFile.pm view on Meta::CPAN
_update_parent_dir_times($new);
return 1;
}
sub __chown (@) {
my ( $uid, $gid, @files ) = @_;
$^O eq 'MSWin32'
and return 0; # does nothing on Windows
# Not an error, report we changed zero files
@files
or return 0;
# Follow symlinks: chown operates on the target, not the symlink itself
my %mocked_files = map +( $_ => _get_file_object_follow_link($_) ), @files;
my @unmocked_files = grep !$mocked_files{$_}, @files;
my @mocked_files = map { ref $_ && ref $_ ne 'A::BROKEN::SYMLINK' && ref $_ ne 'A::CIRCULAR::SYMLINK' ? $_->{'path'} : () } values %mocked_files;
# The idea is that if some are mocked and some are not,
# it's probably a mistake. Broken/circular symlinks are mocked paths
# (handled per-file below), so they don't count as unmocked.
if ( @mocked_files && @unmocked_files ) {
confess(
sprintf 'You called chown() on a mix of mocked (%s) and unmocked files (%s) ' . ' - this is very likely a bug on your side',
( join ', ', @mocked_files ),
( join ', ', @unmocked_files ),
);
}
lib/Test/MockFile.pm view on Meta::CPAN
# -1 means "keep as is" — no permission needed for unchanged fields.
# POSIX: non-root cannot change uid; can only change gid to a group they belong to.
if ( !$is_root ) {
if ( $uid != -1 && $eff_uid != $target_uid ) {
$! = EPERM;
_maybe_throw_autodie( 'chown', @_ );
return 0;
}
if ( $gid != -1 && !$is_in_group ) {
$! = EPERM;
_maybe_throw_autodie( 'chown', @_ );
return 0;
}
}
my $num_changed = 0;
lib/Test/MockFile.pm view on Meta::CPAN
my $mock = $mocked_files{$file};
# If this file is not mocked, none of the files are
# which means we can send them all and let the CORE function handle it
if ( !$mock ) {
_real_file_access_hook( 'chown', \@_ );
goto \&CORE::chown if _goto_is_available();
return CORE::chown( $uid, $gid, @files );
}
# Handle broken/circular symlink errors
if ( ref $mock eq 'A::BROKEN::SYMLINK' ) {
$! = ENOENT;
lib/Test/MockFile.pm view on Meta::CPAN
$num_changed++;
}
if ( $num_changed < scalar(@files) ) {
_maybe_throw_autodie( 'chown', @_ );
}
return $num_changed;
}
lib/Test/MockFile.pm view on Meta::CPAN
*CORE::GLOBAL::link = \&__link;
*CORE::GLOBAL::mkdir = \&__mkdir;
*CORE::GLOBAL::rename = \&__rename;
*CORE::GLOBAL::rmdir = \&__rmdir;
*CORE::GLOBAL::chown = \&__chown;
*CORE::GLOBAL::chmod = \&__chmod;
*CORE::GLOBAL::flock = \&__flock;
*CORE::GLOBAL::utime = \&__utime;
*CORE::GLOBAL::truncate = \&__truncate;
Test-PostgreSQL
view release on metacpan or search on metacpan
lib/Test/PostgreSQL.pm view on Meta::CPAN
}
$self->uid($ent->uid);
}
# Ensure base dir is writable by our target uid, if we were running as root
chown $self->uid, -1, $self->base_dir
if defined $self->uid;
if ($self->auto_start) {
$self->setup
if $self->auto_start >= 2;
lib/Test/PostgreSQL.pm view on Meta::CPAN
# (re)create directory structure
mkdir $self->base_dir;
chmod 0755, $self->base_dir
or die "failed to chmod 0755 dir:" . $self->base_dir . ":$!";
if ($ENV{USER} && $ENV{USER} eq 'root') {
chown $self->uid, -1, $self->base_dir
or die "failed to chown dir:" . $self->base_dir . ":$!";
}
my $tmpdir = $self->socket_dir;
if (mkdir $tmpdir) {
if ($self->uid) {
chown $self->uid, -1, $tmpdir
or die "failed to chown dir:$tmpdir:$!";
}
}
# initdb
if (! -d File::Spec->catdir($self->base_dir, 'data')) {
if ( $self->pg_ctl ) {
Test-Postgresql58
view release on metacpan or search on metacpan
lib/Test/Postgresql58.pm view on Meta::CPAN
$self->base_dir(
tempdir(
CLEANUP => $ENV{TEST_POSTGRESQL_PRESERVE} ? undef : 1,
),
);
chown $self->uid, -1, $self->base_dir
if defined $self->uid;
}
if (! defined $self->initdb) {
my $prog = _find_program('initdb')
or return;
lib/Test/Postgresql58.pm view on Meta::CPAN
# (re)create directory structure
mkdir $self->base_dir;
chmod 0755, $self->base_dir
or die "failed to chmod 0755 dir:" . $self->base_dir . ":$!";
if ($ENV{USER} eq 'root') {
chown $self->uid, -1, $self->base_dir
or die "failed to chown dir:" . $self->base_dir . ":$!";
}
if (mkdir $self->base_dir . '/tmp') {
if ($self->uid) {
chown $self->uid, -1, $self->base_dir . '/tmp'
or die "failed to chown dir:" . $self->base_dir . "/tmp:$!";
}
}
# initdb
if (! -d $self->base_dir . '/data') {
pipe my $rfh, my $wfh
Test-Smoke
view release on metacpan or search on metacpan
t/gccmsg.log view on Meta::CPAN
deleting lib/auto/POSIX/div.al
deleting lib/auto/POSIX/creat.al
deleting lib/auto/POSIX/cos.al
deleting lib/auto/POSIX/closedir.al
deleting lib/auto/POSIX/clearerr.al
deleting lib/auto/POSIX/chown.al
deleting lib/auto/POSIX/chmod.al
deleting lib/auto/POSIX/chdir.al
deleting lib/auto/POSIX/calloc.al
deleting lib/auto/POSIX/bsearch.al
deleting lib/auto/POSIX/autosplit.ix
Test-SpellCheck
view release on metacpan or search on metacpan
maint/build-perl-dic view on Meta::CPAN
each keys pop push shift splice unshift values
grep join map qw reverse sort unpack
delete each exists keys values
binmode close closedir dbmclose dbmopen die eof fileno flock format getc print printf read readdir readline rewinddir say seek seekdir select syscall sysread sysseek syswrite tell telldir truncate warn write
pack read syscall sysread sysseek syswrite unpack vec
chdir chmod chown chroot fcntl glob ioctl link lstat mkdir open opendir readlink rename rmdir select stat symlink sysopen umask unlink utime
break caller continue die do dump eval evalbytes exit __FILE__ goto last __LINE__ next __PACKAGE__ redo return sub __SUB__ wantarray
caller import local my our package state use
defined formline lock prototype reset scalar undef
alarm exec fork getpgrp getppid getpriority kill pipe qx readpipe setpgrp setpriority sleep system times wait waitpid
do import no package require use
Test-TempDatabase
view release on metacpan or search on metacpan
t/300_cluster.t view on Meta::CPAN
use File::Slurp;
BEGIN { use_ok( 'Test::TempDatabase' ); }
my $td = tempdir('/dev/shm/temp_db_300_XXXXXX', CLEANUP => 1);
`chown postgres $td` unless $<;
my $test_db = Test::TempDatabase->new({ dbname => 'test_temp_db_test'
, cluster_dir => $td });
isa_ok($test_db, 'Test::TempDatabase');
$test_db->create_cluster;
Test-Virtual-Filesystem
view release on metacpan or search on metacpan
lib/Test/Virtual/Filesystem.pm view on Meta::CPAN
},
symlink => 1,
hardlink => {
nlink => 1,
},
chown => 0,
);
# if true, the feature is disabled no matter what. For example, most versions
# of Windows at this writing do not support symlinks at all, regardless of
# whether your virtual filesystem supports them
Readonly::Hash my %feature_disabled => (
$Config{d_symlink} ? () : (symlink => 1),
$Config{d_chown} ? () : (chown => 1),
eval {require File::ExtAttr; 1;} ? () : (xattr => 1),
);
=pod
lib/Test/Virtual/Filesystem.pm view on Meta::CPAN
or with more customization:
use Test::Virtual::Filesystem;
my $test = Test::Virtual::Filesystem->new({mountdir => '/path/to/test', compatible => '0.03'});
$test->enable_test_xattr(1);
$test->enable_test_chown(1);
$test->enable_test_atime(1);
$test->runtests;
See the file F<t/filesys.t> in this distribution or the file F<t/fusepdf.t> in
the L<Fuse::PDF> distribution for thorough examples.
lib/Test/Virtual/Filesystem.pm view on Meta::CPAN
large files
filenames with spaces
non-ASCII filenames (maybe constructor should specify the encoding?)
permissions
special file types (fifos, sockets, character and block devices, etc)
chown
binmode, non-binmode
eof
fileno
statfs (AKA `df` or `mount`)
rename corner cases:
lib/Test/Virtual/Filesystem.pm view on Meta::CPAN
=item $self->enable_test_nlink()
Count hard links. Default true.
=item $self->enable_test_chown()
Default false.
=back
lib/Test/Virtual/Filesystem.pm view on Meta::CPAN
Don't break published CPAN code. If you want to test something new, write a new method.
=item Try to use a few different filesystem functions as practical in one method
For example, if you're testing C<chmod>, don't C<mkdir> or C<chown> unless
you're writing a C<chmod_mkdir_chown> test.
=item Minimize test infrastructure
Use method attributes and Test::Class features to keep the test methods really
simple.
Test2-Harness-UI
view release on metacpan or search on metacpan
ADD . /app
# In case new deps were added
RUN ["cpanm", "--installdeps", "-v", "/app"]
RUN ["chown", "-R", "999:999", "/app"]
USER appuser
ENV T2_HARNESS_UI_ENV=dev
EXPOSE 8081
WORKDIR /app
Text-CSV_XS
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
Text-ClearSilver
view release on metacpan or search on metacpan
cs/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}"
tranformbasename=""
transform_arg=""
instcmd="$mvprog"
chmodcmd="$chmodprog 0755"
chowncmd=""
chgrpcmd=""
stripcmd=""
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=""
cs/install-sh view on Meta::CPAN
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-g) chgrpcmd="$chgrpprog $2"
cs/install-sh view on Meta::CPAN
if [ x"$dir_arg" != x ]
then
$doit $instcmd $dst &&
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi &&
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi &&
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi &&
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi
else
cs/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 $instcmd $src $dsttmp" command.
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi &&
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi &&
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi &&
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi &&
# Now rename the file to the real destination.
Text-Markdown-Discount
view release on metacpan or search on metacpan
lib/Text/Markdown/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/Text/Markdown/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
Text-Minify-XS
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
Text-Quote
view release on metacpan or search on metacpan
lib/Text/Quote.pm view on Meta::CPAN
);
my %known_keywords = 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
( run in 1.882 second using v1.01-cache-2.11-cpan-71847e10f99 )