Result:
found more than 1001 distributions - search limited to the first 2001 files matching your query
( run in 1.422 )
Cvs-Trigger
view release on metacpan or search on metacpan
t/001Basic.t view on Meta::CPAN
$c->module_import();
my $code = $c->test_trigger_code("commitinfo");
my $script = "$c->{bin_dir}/trigger";
blurt $code, $script;
chmod 0755, $script;
my $commitinfo = "$c->{local_root}/CVSROOT/commitinfo";
chmod 0644, $commitinfo or die "cannot chmod $commitinfo";
blurt "DEFAULT $script", $commitinfo;
$c->admin_rebuild();
# Single file
$c->files_commit("m/a/a1.txt");
Cvs
view release on metacpan or search on metacpan
lib/Cvs/Cvsroot.pm view on Meta::CPAN
# temporary file and we tell ssh to call it.
my($fh, $file) = File::Temp::tmpnam()
or die "can't create a temporary file";
print STDERR "Creating askpass script `$file'\n"
if $debug;
chmod(0700, $file);
$fh->print("#!/bin/sh\n");
$fh->print("echo \$1|grep -iq password&&echo $self->{password}&&exit\n");
$fh->print("echo \$1|grep -iq passphrase&&echo $self->{passphrase}&&exit\n");
$fh->print("echo yes\n");
$fh->close();
Cyrillic
view release on metacpan or search on metacpan
lib/Cyrillic.pm view on Meta::CPAN
my $e_script = Cyrillic::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
DB-CouchDB-Schema
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
DB-Handy
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';
}
}
# unzip and untar *.tar.gz
elsif ($target =~ /^xzvf$/) {
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-DB2
view release on metacpan or search on metacpan
Writing MYMETA.yml and MYMETA.json
# make
<...>
Running Mkbootstrap for DBI ()
chmod 644 "DBI.bs"
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- DBI.bs blib/arch/auto/DBI/DBI.bs 644
xlc_r -c -D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=-1 -qnoansialias -qlanglvl=extc99 -DUSE_NATIVE_DLOPEN -DNEED_PTHREAD_INIT -q32 -D_LARGE_FILES -O -DVERSION=\"1.643\" -DXS_VERSION=\"1.643\" "-I/usr/opt/perl5/lib/5.28.1/...
"/usr/opt/perl5/lib/5.28.1/aix-thread-multi/CORE/perl.h", line 4401.15: 1506-963 (W) The attribute "deprecated" is not a valid variable attribute and is ignored.
rm -f blib/arch/auto/DBI/DBI.so
ld -bhalt:4 -G -bI:/usr/opt/perl5/lib/5.28.1/aix-thread-multi/CORE/perl.exp -bnoentry -lpthreads -lc -lm -bE:DBI.exp DBI.o -o blib/arch/auto/DBI/DBI.so
chmod 755 blib/arch/auto/DBI/DBI.so
"/usr/bin/perl" "-Iblib/arch" "-Iblib/lib" dbilogstrip.PL dbilogstrip
Extracted dbilogstrip from dbilogstrip.PL with variable substitutions.
"/usr/bin/perl" "-Iblib/arch" "-Iblib/lib" dbiprof.PL dbiprof
Extracted dbiprof from dbiprof.PL with variable substitutions.
"/usr/bin/perl" "-Iblib/arch" "-Iblib/lib" dbiproxy.PL dbiproxy
"/usr/opt/perl5/lib/5.28.1/aix-thread-multi/CORE/perl.h", line 4401.15: 1506-963 (W) The attribute "deprecated" is not a valid variable attribute and is ignored.
xlc_r -c -I"/tmp/perl/odbc_cli_32/clidriver/include" -I"/usr/opt/perl5/lib/site_perl/5.28.1/aix-thread-multi/auto/DBI" -I"/usr/opt/perl5/lib/5.28.1/aix-thread-multi/auto/DBI" -I"/usr/opt/perl5/lib/site_perl/5.28.1/aix-thread-multi/auto/DBI" ...
"/usr/opt/perl5/lib/5.28.1/aix-thread-multi/CORE/perl.h", line 4401.15: 1506-963 (W) The attribute "deprecated" is not a valid variable attribute and is ignored.
rm -f blib/arch/auto/DBD/DB2/DB2.so
ld -bhalt:4 -G -bI:/usr/opt/perl5/lib/5.28.1/aix-thread-multi/CORE/perl.exp -bnoentry -lpthreads -lc -lm -bE:DB2.exp DB2.o dbdimp.o -o blib/arch/auto/DBD/DB2/DB2.so -L/tmp/perl/odbc_cli_32/clidriver/lib -ldb2
chmod 755 blib/arch/auto/DBD/DB2/DB2.so
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Constants.bs ../blib/arch/auto/DBD/DB2/Constants/Constants.bs 644
Manifying 2 pod documents
Target "default_target" is up to date.
# make test
DBD-Empress
view release on metacpan or search on metacpan
s!^my $LIBS =.*!my $LIBS = "-L./lib -ldse -lms";!
' < Makefile.PL > $TMPFILE
;;
esac
chmod +w Makefile.PL
mv $TMPFILE Makefile.PL
rm -fr Makefile
perl mklibms.pl
**************************************************************
EOM
sed -e "
s!-L.*-ldse.*!./lib/libdse.a ./lib/libms.a!
" < $FILE > $TMPFILE
chmod +w $FILE
mv $TMPFILE $FILE
;;
esac
make perl
DBD-Informix
view release on metacpan or search on metacpan
examples/fixin.pl view on Meta::CPAN
((warn "Can't modify $filename"), next FILE);
open(OUT, ">$filename") ||
die "Can't create new $filename: $!\n";
($def, $ino, $mode) = stat IN;
$mode = 0755 unless $dev;
chmod $mode, $filename;
select(OUT);
}
# Print the new #! line (or the equivalent) and copy the rest of the file.
print;
DBD-MariaDB
view release on metacpan or search on metacpan
Changes.historic view on Meta::CPAN
* 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-NET
view release on metacpan or search on metacpan
dbdnet/Makefile view on Meta::CPAN
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = sh -c true
RM_F = rm -f
DBD-ODBC
view release on metacpan or search on metacpan
examples/perl-DBD-ODBC.spec view on Meta::CPAN
rm -rf $RPM_BUILD_ROOT
make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';'
find $RPM_BUILD_ROOT -type f -name '*.bs' -a -size 0 -exec rm -f {} ';'
find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null ';'
chmod -R u+w $RPM_BUILD_ROOT/*
%check
make test
DBD-Oracle
view release on metacpan or search on metacpan
lib/DBD/Oracle/Troubleshooting/Hpux.pod view on Meta::CPAN
b) Run it (replace "LhtStrCreate" with your "Unresolved symbol").
For example, at my installation, findSymbols produced the
following output:
# chmod 755 findSymbols
# ./findSymbol LhtStrCreate
found "LhtStrCreate" in ./lib/libagtsh.sl
found "LhtStrCreate" in ./lib/libclntsh.sl
found "LhtStrCreate" in ./lib/libwtc8.sl
DBD-PgLite
view release on metacpan or search on metacpan
lib/DBD/PgLite/MirrorPgToSQLite.pm view on Meta::CPAN
my $database = $opt{pg_dbh}->{mbl_dbh}
? $opt{pg_dbh}->{mbl_dbh}->[0]->{Name}
: $opt{pg_dbh}->{Name};
unless (-d $opt{cachedir}) {
mkdir $opt{cachedir};
chmod 0777, $opt{cachedir};
}
my $uid = (getpwuid($>))[0] || $>;
mkdir "$opt{cachedir}/$uid" unless -d "$opt{cachedir}/$uid";
my $fn = "$opt{cachedir}/$uid/$database.$sn.$tn";
if ($cnt) {
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 },
#define osFchmod ((int(*)(int,mode_t))aSyscall[14].pCurrent)
#else
{ "fchmod", (sqlite3_syscall_ptr)0, 0 },
#define osFchmod(FID,MODE) 0
#endif
#if defined(HAVE_POSIX_FALLOCATE) && HAVE_POSIX_FALLOCATE
{ "fallocate", (sqlite3_syscall_ptr)posix_fallocate, 0 },
#else
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;
( run in 1.422 second using v1.01-cache-2.11-cpan-39bf76dae61 )