Result:
found more than 1006 distributions - search limited to the first 2001 files matching your query
( run in 0.984 )
DBD-PgPPSjis
view release on metacpan or search on metacpan
if (-e $file) {
mkpath(dirname("$tardir/$file"), 0, 0777);
print STDERR "copy $file $tardir/$file\n";
copy($file, "$tardir/$file");
if ($file =~ m/ (?: Build\.PL | Makefile\.PL ) \z/oxmsi) {
chmod(0664, "$tardir/$file");
}
elsif ($file =~ m/\. (?: pl | bat | exe | com ) \z/oxmsi) {
chmod(0775, "$tardir/$file");
}
elsif ($file =~ m{^bin/}oxmsi) {
chmod(0775, "$tardir/$file");
}
else {
chmod(0664, "$tardir/$file");
}
}
}
system(qq{tar -cvf $tardir.tar $tardir});
system(qq{gzip $tardir.tar});
else {
open(FH_TARBAT, '>ptar') || die "Can't open file: ptar\n";
print FH_TARBAT '#!', &which($^X), "\n";
print FH_TARBAT $ptar;
close FH_TARBAT;
chmod 0755, 'ptar';
}
}
# make pwget
elsif ($target =~ /^pwget(?:\.bat)?$/) {
else {
open(FH_WGETBAT, '>pwget') || die "Can't open file: pwget\n";
print FH_WGETBAT '#!', &which($^X), "\n";
print FH_WGETBAT $pwget;
close FH_WGETBAT;
chmod 0755, 'pwget';
}
}
else {
warn "unknown target: $target.\n";
}
DBD-QBase
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
co -q -u $(DISTFILES)
rm -f Makefile *~ t/*~
cd ..; tar cvFf $(DISTNAME)-$(VERSION).tar \
`sed -e "s:^:$(BASEEXT)/:" < $(BASEEXT)/MANIFEST`
@cd ..; compress $(DISTNAME)-$(VERSION).tar;
@chmod -w ../$(DISTNAME)-$(VERSION).tar.Z
mv ../$(DISTNAME)-$(VERSION).tar.Z $$HOME/perl/db/DBD/QBase/
cp README $$HOME/perl/db/DBD/QBase/
@cd $$HOME/perl/db/DBD/QBase; pwd; ls -l *.Z
';
}
DBD-SQLcipher
view release on metacpan or search on metacpan
XSUBPP_EXTRA_ARGS =
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
DBD-SQLeet
view release on metacpan or search on metacpan
# define SQLITE_MALLOC_SOFT_LIMIT 1024
#endif
/*
** We need to define _XOPEN_SOURCE as follows in order to enable
** recursive mutexes on most Unix systems and fchmod() on OpenBSD.
** But _XOPEN_SOURCE define causes problems for Mac OS X, so omit
** it.
*/
#if !defined(_XOPEN_SOURCE) && !defined(__DARWIN__) && !defined(__APPLE__)
# define _XOPEN_SOURCE 600
{ "pwrite64", (sqlite3_syscall_ptr)0, 0 },
#endif
#define osPwrite64 ((ssize_t(*)(int,const void*,size_t,off64_t))\
aSyscall[13].pCurrent)
{ "fchmod", (sqlite3_syscall_ptr)fchmod, 0 },
#define osFchmod ((int(*)(int,mode_t))aSyscall[14].pCurrent)
#if defined(HAVE_POSIX_FALLOCATE) && HAVE_POSIX_FALLOCATE
{ "fallocate", (sqlite3_syscall_ptr)posix_fallocate, 0 },
#else
{ "fallocate", (sqlite3_syscall_ptr)0, 0 },
struct stat statbuf;
if( osFstat(fd, &statbuf)==0
&& statbuf.st_size==0
&& (statbuf.st_mode&0777)!=m
){
osFchmod(fd, m);
}
}
#if defined(FD_CLOEXEC) && (!defined(O_CLOEXEC) || O_CLOEXEC==0)
osFcntl(fd, F_SETFD, osFcntl(fd, F_GETFD, 0) | FD_CLOEXEC);
#endif
if( err==0 ){
mode_t cmode = buf.st_mode&(S_IRUSR|S_IWUSR | S_IRGRP|S_IWGRP |
S_IROTH|S_IWOTH);
/* try to match the database file R/W permissions, ignore failure */
#ifndef SQLITE_PROXY_DEBUG
osFchmod(conchFile->h, cmode);
#else
do{
rc = osFchmod(conchFile->h, cmode);
}while( rc==(-1) && errno==EINTR );
if( rc!=0 ){
int code = errno;
fprintf(stderr, "fchmod %o FAILED with %d %s\n",
cmode, code, strerror(code));
} else {
fprintf(stderr, "fchmod %o SUCCEDED\n",cmode);
}
}else{
int code = errno;
fprintf(stderr, "STAT FAILED[%d] with %d %s\n",
err, code, strerror(code));
** process wants to use.
**
** Once sqlite3OsShmMap() has been called for an sqlite3_file and has
** returned any SQLITE_READONLY value, it must return only SQLITE_READONLY
** or SQLITE_READONLY_CANTINIT or some error for all subsequent invocations,
** even if some external agent does a "chmod" to make the shared-memory
** writable by us, until sqlite3OsShmUnmap() has been called.
** This is a requirement on the VFS implementation.
*/
rc = sqlite3OsShmMap(pWal->pDbFd, 0, WALINDEX_PGSZ, 0, &pDummy);
assert( rc!=SQLITE_OK ); /* SQLITE_OK not possible for read-only connection */
DBD-SQLite
view release on metacpan or search on metacpan
# define SQLITE_MALLOC_SOFT_LIMIT 1024
#endif
/*
** We need to define _XOPEN_SOURCE as follows in order to enable
** recursive mutexes on most Unix systems and fchmod() on OpenBSD.
** But _XOPEN_SOURCE define causes problems for Mac OS X, so omit
** it.
*/
#if !defined(_XOPEN_SOURCE) && !defined(__DARWIN__) && !defined(__APPLE__)
# define _XOPEN_SOURCE 600
#endif
#define osPwrite64 ((ssize_t(*)(int,const void*,size_t,off64_t))\
aSyscall[13].pCurrent)
#if defined(HAVE_FCHMOD)
{ "fchmod", (sqlite3_syscall_ptr)fchmod, 0 },
#else
{ "fchmod", (sqlite3_syscall_ptr)0, 0 },
#endif
#define osFchmod ((int(*)(int,mode_t))aSyscall[14].pCurrent)
#if defined(HAVE_POSIX_FALLOCATE) && HAVE_POSIX_FALLOCATE
{ "fallocate", (sqlite3_syscall_ptr)posix_fallocate, 0 },
#else
{ "fallocate", (sqlite3_syscall_ptr)0, 0 },
struct stat statbuf;
if( osFstat(fd, &statbuf)==0
&& statbuf.st_size==0
&& (statbuf.st_mode&0777)!=m
){
osFchmod(fd, m);
}
}
#if defined(FD_CLOEXEC) && (!defined(O_CLOEXEC) || O_CLOEXEC==0)
osFcntl(fd, F_SETFD, osFcntl(fd, F_GETFD, 0) | FD_CLOEXEC);
#endif
if( err==0 ){
mode_t cmode = buf.st_mode&(S_IRUSR|S_IWUSR | S_IRGRP|S_IWGRP |
S_IROTH|S_IWOTH);
/* try to match the database file R/W permissions, ignore failure */
#ifndef SQLITE_PROXY_DEBUG
osFchmod(conchFile->h, cmode);
#else
do{
rc = osFchmod(conchFile->h, cmode);
}while( rc==(-1) && errno==EINTR );
if( rc!=0 ){
int code = errno;
fprintf(stderr, "fchmod %o FAILED with %d %s\n",
cmode, code, strerror(code));
} else {
fprintf(stderr, "fchmod %o SUCCEDED\n",cmode);
}
}else{
int code = errno;
fprintf(stderr, "STAT FAILED[%d] with %d %s\n",
err, code, strerror(code));
** process wants to use.
**
** Once sqlite3OsShmMap() has been called for an sqlite3_file and has
** returned any SQLITE_READONLY value, it must return only SQLITE_READONLY
** or SQLITE_READONLY_CANTINIT or some error for all subsequent invocations,
** even if some external agent does a "chmod" to make the shared-memory
** writable by us, until sqlite3OsShmUnmap() has been called.
** This is a requirement on the VFS implementation.
*/
rc = sqlite3OsShmMap(pWal->pDbFd, 0, WALINDEX_PGSZ, 0, &pDummy);
assert( rc!=SQLITE_OK ); /* SQLITE_OK not possible for read-only connection */
DBD-Unify
view release on metacpan or search on metacpan
installu.pl view on Meta::CPAN
mkdir "$dst/$f", 0775;
next;
}
print STDERR "lib cp lib/$f\n";
copy ("$src/blib/lib/$f", "$dst/$f");
$f =~ m/\.(sl|al|pm|bs)$/ and chmod 0755, "$dst/$f";
}
$dst = "$ENV{UNIFY}/perl/$version/$arch";
foreach my $f (sort @{$tar{arch}}) {
my $s = "$src/blib/arch/$f";
if (-d $s) {
installu.pl view on Meta::CPAN
mkdir "$dst/$f", 0775;
next;
}
print STDERR "arch cp arch/$f\n";
copy ("$src/blib/arch/$f", "$dst/$f");
$f =~ m/\.(sl|so|al|pm|bs)$/ and chmod 0755, "$dst/$f";
}
$dst = "$ENV{UNIFY}/perl/man/man3";
foreach my $f (sort @{$tar{man3}}) {
$f =~ m{(?:^|/)\.exists$} and next;
my $s = "$src/blib/man3/$f";
installu.pl view on Meta::CPAN
mkdir "$dst/$f", 0775;
next;
}
print STDERR "man3 cp man3/$f\n";
copy ("$src/blib/man3/$f", "$dst/$f");
chmod 0644, "$dst/$f";
}
DBD-XBase
view release on metacpan or search on metacpan
bin/dbfdump.PL view on Meta::CPAN
use Config;
my $filename = $0;
$filename =~ s/\.PL$//;
open OUT,">$filename" or die "Can't create $filename: $!";
chmod(0755, $filename);
print "Extracting $filename (with #! and variable substitution)\n";
print OUT <<"EOHEADER";
$Config{'startperl'} -w
DBD-cubrid
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
if ($Config{longsize} == 8) {
$arch_type = "x64";
} else {
$arch_type = "x86";
}
system('chmod +x build_cci.sh');
system('./build_cci.sh',$arch_type);
$CUBRID_LIB = File::Spec->catpath("", $script_path, "cci-src/cci/.libs");
} else {
DBD-mysql
view release on metacpan or search on metacpan
* xtract, dbd/Makefile.PL.in nodbd/Makefile.PL.in: Removed
first line in case users perl is different from
/usr/local/bin/perl.
* All Makefiles: Added chmod for xtracted files.
* Added bindparam.h for reuse in DBD::pNET.
* Makefile.lib: Some (hopefully) upward compatible modifications
for integration into the MySQL distribution.
DBD-mysqlPPrawSjis
view release on metacpan or search on metacpan
if (-e $file) {
mkpath(dirname("$tardir/$file"), 0, 0777);
print STDERR "copy $file $tardir/$file\n";
copy($file, "$tardir/$file");
if ($file =~ m/ (?: Build\.PL | Makefile\.PL ) \z/oxmsi) {
chmod(0664, "$tardir/$file");
}
elsif ($file =~ m/\. (?: pl | bat | exe | com ) \z/oxmsi) {
chmod(0775, "$tardir/$file");
}
elsif ($file =~ m{^bin/}oxmsi) {
chmod(0775, "$tardir/$file");
}
else {
chmod(0664, "$tardir/$file");
}
}
}
system(qq{tar -cvf $tardir.tar $tardir});
system(qq{gzip $tardir.tar});
if (-e $file) {
mkpath(dirname("$tardir/$file"), 0, 0777);
print STDERR "copy $file $tardir/$file\n";
copy($file, "$tardir/$file");
if ($file =~ m/ (?: Build\.PL | Makefile\.PL ) \z/oxmsi) {
chmod(0664, "$tardir/$file");
}
elsif ($file =~ m/\. (?: pl | bat | exe | com ) \z/oxmsi) {
chmod(0775, "$tardir/$file");
}
elsif ($file =~ m{^bin/}oxmsi) {
chmod(0775, "$tardir/$file");
}
else {
chmod(0664, "$tardir/$file");
}
}
}
system(qq{tar -cvf $tardir.tar $tardir});
system(qq{gzip $tardir.tar});
else {
open(FH_TARBAT, '>ptar') || die "Can't open file: ptar\n";
print FH_TARBAT '#!', &which($^X), "\n";
print FH_TARBAT $ptar;
close FH_TARBAT;
chmod 0755, 'ptar';
}
}
# make pwget
elsif ($target =~ /^pwget(?:\.bat)?$/) {
else {
open(FH_WGETBAT, '>pwget') || die "Can't open file: pwget\n";
print FH_WGETBAT '#!', &which($^X), "\n";
print FH_WGETBAT $pwget;
close FH_WGETBAT;
chmod 0755, 'pwget';
}
}
else {
warn "unknown target: $target.\n";
}
DBD-pNET
view release on metacpan or search on metacpan
pNETagent.PL view on Meta::CPAN
#
# End of pNETagent
#
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
DBGp-Client-AnyEvent
view release on metacpan or search on metacpan
lib/DBGp/Client/AnyEvent/Listener.pm view on Meta::CPAN
my $weak_self = $self;
weaken($weak_self);
my $cb = sub { $weak_self->_new_connection($_[0]) };
my $prepare = ($self->{path} && defined $self->{mode}) ? sub {
chmod $weak_self->{mode}, $weak_self->{path}
or die "Unable to change file mode for socket: $!";
} : undef;
if ($self->{port}) {
$self->{guard} = tcp_server('127.0.0.1', $self->{port}, $cb);
} elsif ($self->{path}) {
DBGp-Client
view release on metacpan or search on metacpan
lib/DBGp/Client/Listener.pm view on Meta::CPAN
Possible options are C<port> to specify a TCP port, and C<path> to
specify the path for an Unix-domain socket.
For Unix-domain socket, passing C<mode> performs an additional
C<chmod> call before starting to listen for connections.
=cut
sub new {
my ($class, %args) = @_;
lib/DBGp/Client/Listener.pm view on Meta::CPAN
$self->{socket} = IO::Socket::UNIX->new(
Local => $self->{path},
);
if ($self->{socket} && defined $self->{mode}) {
chmod $self->{mode}, $self->{path}
or $self->{socket} = undef;
}
if ($self->{socket}) {
$self->{socket}->listen(1)
or $self->{socket} = undef;
DBI
view release on metacpan or search on metacpan
dbilogstrip.PL view on Meta::CPAN
if (!(open(FILE, ">$file")) ||
!(print FILE $script) ||
!(close(FILE))) {
die "Error while writing $file: $!\n";
}
chmod 0755, $file;
print "Extracted $file from ",__FILE__," with variable substitutions.\n";
# syntax check resulting file, but only for developers
exit 1 if -d ".svn" and system($^X, '-wc', '-Mblib', $file) != 0;
DBIx-BulkUtil
view release on metacpan or search on metacpan
lib/DBIx/BulkUtil.pm view on Meta::CPAN
my $error_file = File::Temp->new(
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".err",
@temp_dir, @unlink,
);
chmod(0664, $error_file->filename());
$error_file->close();
my @packet_size = $opts{PacketSize} ? ( -A => $opts{PacketSize} ) : ();
my @passthru = $opts{PassThru} ? @{$opts{PassThru}} : ();
lib/DBIx/BulkUtil.pm view on Meta::CPAN
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".fmt",
@temp_dir, @unlink,
);
$fmt_file = $tmp_fmt_file->filename();
chmod(0664, $tmp_fmt_file);
$tmp_fmt_file->close();
}
my $delim = $opts{Delimiter} || "|";
my $row_delim = $opts{RowDelimiter} || "\n";
lib/DBIx/BulkUtil.pm view on Meta::CPAN
my $ctl_fh = File::Temp->new(
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".ctl",
@temp_dir, @unlink,
);
chmod(0664, $ctl_fh->filename());
my $bad_fh = File::Temp->new(
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".bad",
@temp_dir, @unlink,
);
chmod(0664, $bad_fh->filename());
my $log_fh = File::Temp->new(
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".log",
@temp_dir, @unlink,
);
chmod(0664, $log_fh->filename());
my $prm_fh = $stdin ? File::Temp->new(
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".prm",
@temp_dir,
) : undef;
DBIx-Class-CustomPrefetch
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libfcgi-procmanager-perl", "FCGI-ProcManager", "0.18", "0", "0"
"libfeed-find-perl", "Feed-Find", "0.06", "0", "0"
"libfile-basedir-perl", "File-BaseDir", "0.03", "0", "0"
"libfile-bom-perl", "File-BOM", "0.14", "0", "0"
"libfile-changenotify-perl", "File-ChangeNotify", "0.08", "0", "0"
"libfile-chmod-perl", "File-chmod", "0.32", "0", "0"
"libfile-copy-recursive-perl", "File-Copy-Recursive", "0.38", "0", "0"
"libfile-counterfile-perl", "File-CounterFile", "1.04", "0", "0"
"libfile-desktopentry-perl", "File-DesktopEntry", "0.04", "1", "0"
"libfile-find-object-perl", "File-Find-Object", "0.2.1", "0", "0"
"libfile-find-object-rule-perl", "File-Find-Object-Rule", "0.0300", "0", "0"
DBIx-Class-Migration
view release on metacpan or search on metacpan
lib/DBIx/Class/Migration/MySQLSandbox.pm view on Meta::CPAN
$mysqld --defaults-file=$my_cnf &
START
close($fh);
chmod oct("0755"), catfile($bin, 'start');
}
sub _write_stop {
my $base_dir = (my $self = shift)->test_mysqld->base_dir;
mkpath(my $bin = catdir($base_dir, 'bin'));
lib/DBIx/Class/Migration/MySQLSandbox.pm view on Meta::CPAN
kill \$(cat $PIDFILE)
STOP
close($fh);
chmod oct("0755"), catfile($bin, 'stop');
}
sub _write_use {
my $base_dir = (my $self = shift)->test_mysqld->base_dir;
mkpath(my $bin = catdir($base_dir, 'bin'));
lib/DBIx/Class/Migration/MySQLSandbox.pm view on Meta::CPAN
$mysqld --socket=$SOCKET -u root test
USE
close($fh);
chmod oct("0755"), catfile($bin, 'use');
}
sub make_sandbox {
my $self = shift;
my $base_dir = $self->_generate_sandbox_dir;
DBIx-Class-ResultSource-MultipleTableInheritance
view release on metacpan or search on metacpan
BOOTSTRAP Makefile /^BOOTSTRAP =$/;" m
C inc/Module/Install/Win32.pm /^C:\\WINDOWS\\COMMAND\\), then launch the MS-DOS command line shell, "cd" to$/;" l
CC Makefile /^CC = cc$/;" m
CCCDLFLAGS Makefile /^CCCDLFLAGS = -fPIC$/;" m
CCDLFLAGS Makefile /^CCDLFLAGS = -Wl,-E$/;" m
CHMOD Makefile /^CHMOD = chmod$/;" m
CI Makefile /^CI = ci -u$/;" m
COMPRESS Makefile /^COMPRESS = gzip --best$/;" m
CONFIGDEP Makefile /^CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h$/;" m
CP Makefile /^CP = cp$/;" m
C_FILES Makefile /^C_FILES = $/;" m
DBIx-Class-Schema-Loader
view release on metacpan or search on metacpan
maint/travis-ci_scripts/10_before_install.bash view on Meta::CPAN
else
apt_install $common_packages unixodbc-dev expect
### config mysql
run_or_err "Installing minimizing MySQL config" "sudo cp maint/travis-ci_scripts/configs/minimal_mysql_travis.cnf /etc/mysql/conf.d/ && sudo chmod 644 /etc/mysql/conf.d/*.cnf"
run_or_err "Starting MySQL" "sudo /etc/init.d/mysql start"
run_or_err "Creating MySQL TestDB" "mysql -e 'create database dbic_test;'"
export DBICTEST_MYSQL_DSN='dbi:mysql:database=dbic_test;host=127.0.0.1'
export DBICTEST_MYSQL_USER=root
maint/travis-ci_scripts/10_before_install.bash view on Meta::CPAN
run_or_err "Updating apt sources" "sudo apt-get update"
apt_install db2exc
# WTF is this world-writable?
# Strip the write bit so it doesn't trip Ubuntu's symlink-in-/tmp attack mitigation
sudo chmod -R o-w ~dasusr1/das
run_or_err "Restarting DB2" "sudo /etc/init.d/db2exc restart"
export DB2_HOME=/opt/ibm/db2/V9.7
export DBICTEST_DB2_DSN=dbi:DB2:DATABASE=DBICTEST
DBIx-DBStag
view release on metacpan or search on metacpan
DBIx/DBStag/Cookbook.pm view on Meta::CPAN
We want to create the CGI, and give it access to our templates:
mkdir /usr/local/httpd/cgi-bin/cia
cp templates/*.stg /usr/local/httpd/cgi-bin/cia
cp `which ubiq.cgi` /usr/local/httpd/cgi-bin/cia
chmod +x /usr/local/httpd/cgi-bin/cia/ubiq.cgi
mkdir /usr/local/httpd/cgi-bin/cia/cache
chmod 777 /usr/local/httpd/cgi-bin/cia/cache
Set up the environment for the CGI script. It must be able to see the
templates and the necessary perl libraries (if not installed
system-wide)
DBIx-FullTextSearch
view release on metacpan or search on metacpan
test_data/Makefile.file view on Meta::CPAN
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
test_data/Makefile.file view on Meta::CPAN
POD2MAN_EXE = /packages/run/perl-5.005_02/bin/pod2man
POD2MAN = $(PERL) -we '%m=@ARGV;for (keys %m){' \
-e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "Makefile";' \
-e 'print "Manifying $$m{$$_}\n";' \
-e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\047t install $$m{$$_}\n";' \
-e 'chmod(oct($(PERM_RW))), $$m{$$_} or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}'
manifypods : pure_all bin/dbfdump \
lib/XBase/Memo.pm \
lib/XBase/Index.pm \
lib/XBase.pm \
DBIx-HA
view release on metacpan or search on metacpan
lib/DBIx/HA.pm view on Meta::CPAN
$logdir = Apache::server_root_relative(undef,'logs');
open IN, ">/$logdir/DBIxHA_activedb_$dbname" || return 0;
print IN $DBIx::HA::activeserver{$dbname};
close IN;
if ($Apache::ServerStarting == 1) {
chmod 0666, "$logdir/DBIxHA_activedb_$dbname";
}
}
}
return 1;
}
DBIx-HTMLinterface
view release on metacpan or search on metacpan
HTMLinterface.pm view on Meta::CPAN
Enables logging of SQL changes to the database automatically
without providing a callback. The script will open the file
specified, with no locking (Althoughthis might be added in
future). The file must be writeable to the CGI, on UNIX you
normally need to I<chmod 666 mydb-log>. However this may
differ depending on your system and what operating system
you have.
NOTE: check_params() MUST be called or HTMLinterface will not function correctly.
DBIx-JCL
view release on metacpan or search on metacpan
lib/DBIx/JCL.pm view on Meta::CPAN
$next = "${currn}." . $nextgen;
copy($curr, $next);
## preserve permissions and status
my @stat = stat $curr;
chmod( $stat[2], $next ) or sys_warn( "log chmod failed: ($next)" );
utime( $stat[8], $stat[9], $next ) or sys_warn( "log utime failed: ($next)" );
chown( $stat[4], $stat[5], $next ) or sys_warn( "log chown failed: ($next)" );
## now truncate the file
truncate $curr, 0 or sys_die( "Could not truncate $curr" );
lib/DBIx/JCL.pm view on Meta::CPAN
All files owned by the account which processes batch jobs should be set to \
permission level 750, which will give owner rwx, group r-x, and all others no \
access.
% language=Ini_Files
% >chmod 750 filename
%
% 7 - owner permissions (rwx) i.e., read & write & execute
% 5 - group permissions (r-x) i.e., read & execute
% 0 - world permissions (---) i.e., none
%%
DBIx-Log4perl
view release on metacpan or search on metacpan
##### open OUT, ">pipe.pl" or die "Failed to create pipe.pl - $!";
##### print OUT "#!$^X\n";
##### print OUT 'while (<STDIN>) {open OUT, ">>dbixl4p.log"; print OUT $_;close OUT;}';
##### close OUT;
##### chmod 0777, "pipe.pl";
$logtmp1 = File::Spec->catfile($td, 'dbixroot.log');
$logtmp2 = File::Spec->catfile($td, 'dbix.log');
my $cwd = getcwd();
my $pipe = File::Spec->catfile($cwd, "pipe.pl");
DBIx-LogProfile
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
(ABSTRACT_FROM => 'lib/DBIx/LogProfile.pm', # retrieve abstract from module
AUTHOR => 'Bjoern Hoehrmann <bjoern@hoehrmann.de>') : ()),
LICENSE => 'perl',
'dist' => {
PREOP => 'chmod 600 Makefile.PL',
TARFLAGS => '--group=none --owner=bjoern --mode=a+rw -cvf',
},
META_MERGE => {
'meta-spec' => { version => 2 },
resources => {
DBIx-Migration-Directories
view release on metacpan or search on metacpan
t/01_class.t view on Meta::CPAN
SKIP: {
mkdir('bogus-dir', 0000) or die $!;
if(opendir(my $dir, 'bogus-dir')) {
closedir $dir;
chmod(0700, 'bogus-dir');
rmdir('bogus-dir');
skip "root can write to everything", 1;
}
t/01_class.t view on Meta::CPAN
like($@,
qr/^opendir\("bogus-dir"\) failed:/,
'Initialize with directory we dont have access to'
);
chmod(0700, 'bogus-dir');
rmdir('bogus-dir');
}
DBIx-MoCo
view release on metacpan or search on metacpan
lib/DBIx/MoCo.pm view on Meta::CPAN
# unlink_on_exit => 1,
# expire_time => 600, # sec
# ) or die $!
# );
# chmod(0666, $file) or die $! if -e $file;
# } else {
# warn "Using DBIx::MoCo::Cache is now deprecated because of memory leak."
# . "Install Cache::FastMmap instead, or setup cache_object explicitly.";
# DBIx::MoCo::Cache->require or die $@;
DBIx-MyPassword
view release on metacpan or search on metacpan
lib/DBIx/MyPassword.pm view on Meta::CPAN
include it here.
For *X, all that you have to do is change the permissions on your
password file so that you are the only person who can read it. A simple:
chmod 400 .mypassword
is all that it takes. Each user can have their own password file that
only they can read. The caveat of this is that only scripts executed
by you can read the file too... not sure how that fairs for web
development.
DBIx-Patcher
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
( run in 0.984 second using v1.01-cache-2.11-cpan-496ff517765 )