Result:
found more than 999 distributions - search limited to the first 2001 files matching your query
( run in 3.999 )
CryptX
view release on metacpan or search on metacpan
check_type_and_open|5.009003||Viu
check_uni|5.003007||Viu
check_utf8|5.008000||Viu
check_utf8_print|5.013009||Viu
child_offset_bits|5.009003||Viu
chmod|5.005000||Viu
chsize|5.005000||Viu
ckDEAD|5.006000||Viu
ck_entersub_args_core|||iu
ck_entersub_args_list|5.013006|5.013006|
ck_entersub_args_proto|5.013006|5.013006|
KEY_break|5.027008||Viu
KEY_caller|5.003007||Viu
KEY_catch|5.033007||Viu
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
Perl_langinfo|5.027004|5.027004|n
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
Perl_pp_aelemfast_lex|5.015000||Viu
Perl_pp_andassign|5.013009||Viu
Perl_pp_avalues|5.013009||Viu
Perl_pp_bind|5.013009||Viu
Perl_pp_bit_xor|5.013009||Viu
Perl_pp_chmod|5.013009||Viu
Perl_pp_chomp|5.013009||Viu
Perl_pp_connect|5.013009||Viu
Perl_pp_cos|5.013009||Viu
Perl_pp_custom|5.013009||Viu
Perl_pp_dbmclose|5.013009||Viu
Csistck
view release on metacpan or search on metacpan
lib/Csistck/Test/FileBase.pm view on Meta::CPAN
}
sub mode_repair {
my ($file, $mode) = @_;
debug("Chmod file: file=<$file> mode=<$mode>");
chmod(oct($mode), $file);
}
# UID operations
sub uid_check {
my ($file, $uid) = @_;
Cstools
view release on metacpan or search on metacpan
bin/cssort.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 #! substitution)\n";
print OUT <<"EOHEADER";
$Config{'startperl'} -w
eval 'exec perl -S \$0 "\$@"'
Curses-Devkit
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = gcc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
Cv
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
cover:
cover -delete
-HARNESS_PERL_SWITCHES=-MDevel::Cover make test
cover
find cover_db -type d |xargs chmod +rx
";
}
sub AUTOLOAD {
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
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;
( run in 3.999 seconds using v1.01-cache-2.11-cpan-cdf2f3d4e48 )