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
view release on metacpan or search on metacpan
execute permission. So, must change PAR-0.976/lib/PAR.pm. After line
884 (which says "$par_temp = $1;"), add the following, then rebuild and
reinstall PAR:
foreach my $i (<$par_temp/lib*.sl>) {
chmod 0755, $i;
}
Then issue the following command to build the PAR standalone executable:
view release on metacpan or search on metacpan
Install.html view on Meta::CPAN
<dl>
<dt><strong><a name="item_read_permissions_for__2e_2fblib">read permissions for ./blib</a></strong>
<dd>
<pre>
chmod -R o=r,+X blib</pre>
</dd>
<dt><strong><a name="item_read_and_write_permissions_for__2e_2fexamples">read and write permissions for ./examples</a></strong>
<dd>
<pre>
chmod -R o=rw,+X examples</pre>
</dd>
<dd>
<p>Only if you plan testing of XBase or SQLite data sources</p>
</dd>
</dl>
view release on metacpan or search on metacpan
#########################################################################################
unlink "test.log" ;
unlink <test/seq.*> ;
chmod 0777, 'test' ;
open LOG, ">>test.log" or die "Cannot open test.log" ;
*DBIx::Recordset::LOG = \*LOG ;
$DBIx::Recordset::Debug = 5 ;
view release on metacpan or search on metacpan
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
POD2MAN_EXE = /usr/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 Repgen.ru.pod \
Repgen.pm
@$(POD2MAN) \
Repgen.ru.pod \
view release on metacpan or search on metacpan
lib/DBIx/Romani/Connection/Base.pm view on Meta::CPAN
}
}
sub execute
{
my ($self, $query, $fetchmode) = @_;
my $sql = $self->generate_sql( $query );
if ( $query->isa( 'DBIx::Romani::Query::Select' ) )
{
return $self->execute_query( $sql, $fetchmode );
}
else
{
return $self->execute_update( $sql );
}
}
sub execute_query
{
my ($self, $sql, $fetchmode) = @_;
my $sth;
$sth= $self->get_dbh()->prepare( $sql );
$sth->execute();
return $self->get_driver()->create_result_set( $self, $sth, $fetchmode );
}
sub execute_update
{
my ($self, $sql) = @_;
view release on metacpan or search on metacpan
- Slight improvements in documentation
- Prefixed default namespace with 'DSCS::'
to reduce possible namespace collision.
0.991 2012-09-07 17:30:04 EEST
- Fixed failing tests on windows related to chmod.
Thanks to Peter du Marchie van Voorthuysen.
0.99 2012-09-07 15:38:49 EEST
- Added dbix method to the generated base/schema class
so generated classes can have their
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
WriteMakefile(
'dist' => {
PREOP => 'pod2text SpatialKey.pm | tee README > $(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
'NAME' => 'DBIx::SpatialKey',
'VERSION_FROM' => 'SpatialKey.pm',
view release on metacpan or search on metacpan
- edit 'script.cgi' source, set appropriate '-path', '-url', '-urf',
another settings.
- create '-icons' by downloading Apache icons if Microsoft IIS
- start 'script.cgi -setup'. File store path and
sample web server configuration will be created.
- chmod o+rw,g+rw,a+rw '-path'
- configure web server according to '-path' files.
view release on metacpan or search on metacpan
glueHTML.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 glueHTML will not function correctly.
view release on metacpan or search on metacpan
my $self = shift;
return 1 unless defined $self->{'_OBJ'};
undef $self->{'_OBJ'};
untie %$self->{'_HASHREF'};
if ($^O eq 'MacOS' || $^O eq 'MacPerl') {
chmod 0666, $self->{'_LOCK'};
} else {
flock $self->{'_FH'}, LOCK_UN;
CORE::close $self->{'_FH'};
}
}
($self->{'_FILE'} = $argv{'-file'}) =~ s/^([+<>]+)//;
$self->{'_MODE'} = $1 || '';
$self->{'_LOCK'} = $argv{'-lock'};
$self->{'_UNTAGGED'} = {};
if ($^O eq 'MacOS' || $^O eq 'MacPerl') {
chmod 0444, $self->{'_LOCK'};
} else {
if ($self->{'_MODE'} =~ /[+>]/) {
open FH, '>>' . $self->{'_LOCK'} or die $!;
unless (flock FH, LOCK_EX) {
CORE::close FH;
view release on metacpan or search on metacpan
lib/DBM/Deep/Storage/File.pm view on Meta::CPAN
my @stats = stat( $self->{fh} );
my $perms = $stats[2] & 07777;
my $uid = $stats[4];
my $gid = $stats[5];
chown( $uid, $gid, $temp_filename );
chmod( $perms, $temp_filename );
}
sub flush {
my $self = shift;
view release on metacpan or search on metacpan
if ($db_version > 1 and defined $arg[4] and $arg[4] =~ /RECNO/ and
$arg[1] and ! -e $arg[1]) {
open(FH, ">$arg[1]") or return undef ;
close FH ;
chmod $arg[3] ? $arg[3] : 0666 , $arg[1] ;
}
DoTie_($tieHASH, @arg) ;
}
view release on metacpan or search on metacpan
my $self = shift;
return 1 unless defined $self->{'_OBJ'};
undef $self->{'_OBJ'};
untie %$self->{'_HASHREF'};
if ($^O eq 'MacOS' || $^O eq 'MacPerl') {
chmod 0666, $self->{'_LOCK'};
} else {
flock $self->{'_FH'}, LOCK_UN;
CORE::close $self->{'_FH'};
}
}
($self->{'_FILE'} = $argv{'-file'}) =~ s/^([+<>]+)//;
$self->{'_MODE'} = $1 || '';
$self->{'_LOCK'} = $argv{'-lock'};
$self->{'_UNTAGGED'} = {};
if ($^O eq 'MacOS' || $^O eq 'MacPerl') {
chmod 0444, $self->{'_LOCK'};
} else {
if ($self->{'_MODE'} =~ /[+>]/) {
open FH, '>>' . $self->{'_LOCK'} or die $!;
unless (flock FH, LOCK_EX) {
CORE::close FH;
view release on metacpan or search on metacpan
lib/DBstorage/RDB.pm view on Meta::CPAN
print FILE "$_\t$inarray{$_}\n";
}
close (FILE);
} elsif($type{"type"} eq "table") {
`cp $table /tmp/file.$$`;
chmod 0664, "/tmp/file.$$";
open (FILE ,">>/tmp/file.$$");
print FILE join("\t", @inarray{@fields}) . "\n";
close (FILE);
} else {
$lock->release();
lib/DBstorage/RDB.pm view on Meta::CPAN
} else {
print "Error cannot write to file $filename";
croak;
}
if (-e "${filename}.bak") {
chmod 0666, "${filename}.bak";
}
}
sub checkout {
my ($self, $filename, $options) = @_;
view release on metacpan or search on metacpan
check_imp_log( $script, $prttn_imp_log );
create_shell( $script, $text );
}
my @shells = glob( "$sqldir/$prefix$tblsp.sh*" );
chmod( 0754, @shells ) == @shells or die "\nCan't chmod some shells: $!\n";
print "\n$0 completed successfully\non ", scalar localtime,"\n\n";
exit 0;
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
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|
easyxs/ppport.h view on Meta::CPAN
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
easyxs/ppport.h view on Meta::CPAN
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
easyxs/ppport.h view on Meta::CPAN
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
view release on metacpan or search on metacpan
perlcritic.rc view on Meta::CPAN
# Put packages (especially subclasses) in separate files.
# TODO Think about test harness code, other neatness....
[Modules::ProhibitMultiplePackages]
# Write `oct(755)' instead of `0755', allows for chmod et al.
[ValuesAndExpressions::ProhibitLeadingZeros]
# from Perl-Critic-Nits
[ValuesAndExpressions::ProhibitAccessOfPrivateData]
view release on metacpan or search on metacpan
CAB/Server/HTTP/UNIX.pm view on Meta::CPAN
##-- setup socket permissions
if ( ($srv->{socketPerms}//'') ne '' ) {
my $sockperms = oct($srv->{socketPerms});
$srv->vlog('info', sprintf("setting socket permissions (0%03o) on %s", $sockperms, $sockpath));
chmod($sockperms, $sockpath)
or $srv->logconfess("prepareLocal(): failed to set permissions for socket '$sockpath': $!");
foreach my $dir (reverse @{$srv->{_socketDirs}||[]}) {
$srv->vlog('info', sprintf("setting directory permissions (0%03o) on %s", ($sockperms|0111), $dir));
chmod(($sockperms|0111), $dir)
or $srv->logconfess("prepareLocal(): failed to set permissions for directory '$dir': $!");
}
}
##-- setup TCP relay subprocess
view release on metacpan or search on metacpan
while (<STDIN>) {
print \$out \$_;
}
END_LOGGER
chmod(0755, "$tmp/logger") or die;
$ENV{LOGGER_OUTPUT} = "$tmp/log";
$ENV{PATH} = "$tmp:$ENV{PATH}";
# diag read_file("$tmp/config");
view release on metacpan or search on metacpan
lib/Daizu/Publish.pm view on Meta::CPAN
delete $url_info->{fh};
if ($file->property('svn:executable')) {
my $umask = umask;
if (defined $umask) {
chmod +(0777 & ~$umask), $tmpfile
or die "Error making '$tmpfile' executable: $!\n";
}
}
if (!-f $filename || _file_hash($tmpfile) ne _file_hash($filename) ||
view release on metacpan or search on metacpan
lib/Dancer/Logger/File/PerRequest.pm view on Meta::CPAN
return $expected_path if -d $expected_path && -x _ && -w _;
unless (-w $logroot and -x _) {
my $perm = (stat $logroot)[2] & 07777;
chmod($perm | 0700, $logroot);
unless (-w $logroot and -x _) {
carp "app directory '$logroot' isn't writable/executable and can't chmod it";
return;
}
}
return $expected_path;
}
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 = $(TRUE)
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
lib/Dancer/Logger/File.pm view on Meta::CPAN
return $expected_path if -d $expected_path && -x _ && -w _;
unless (-w $logroot and -x _) {
my $perm = (stat $logroot)[2] & 07777;
chmod($perm | 0700, $logroot);
unless (-w $logroot and -x _) {
carp "app directory '$logroot' isn't writable/executable and can't chmod it";
return;
}
}
return $expected_path;
}
view release on metacpan or search on metacpan
cpanm --force Dancer2
cpanm --force Dancer2::Plugin::WebService
Make sure that the authorization scripts of the Dancer2::Plugin::WebService module are executable
/usr/bin/find $(/usr/bin/perl -M File::Basename -E 'use Dancer2::Plugin::WebService; print [ fileparse $INC{"Dancer2/Plugin/WebService.pm"} ]->[1]') -regex ".*\.\(sh\|pl|py\)\$" -type f -exec /usr/bin/chmod 755 {} \;
Create the Persistent session data and log directories. You can change them later if needed
i=/var/lib/WebService; [ -d $i ] || { mkdir $i; chown -R dancer:dancer $i; }
i=/var/log/WebService; [ -d $i ] || { mkdir $i; chown -R dancer:dancer $i; }
view release on metacpan or search on metacpan
lib/Dancer2/CLI/Gen.pm view on Meta::CPAN
$content = $self->_process_template($content, $vars);
}
path( $to )->spew_raw( $content );
if( $ex ) {
$to->chmod( 0755 ) or warn "unable to change permissions for $to: $!";
}
}
}
sub _create_manifest {
view release on metacpan or search on metacpan
printf "1\n2\nb\n3\n4\d\n5\n" > a
darcs record --ignore-times --all --author="test" -m "3"
printf "1\n2\nb\n3\n4\d\n5\n6\n" > a
darcs record --ignore-times --all --author="test" -m "4"
chmod +w inventory_old inventory_new
cp _darcs/hashed_inventory inventory_old
/bin/echo -n nnyd | darcs unpull
cp _darcs/hashed_inventory inventory_new
SETUP
view release on metacpan or search on metacpan
share/assets/dash_renderer/dash_renderer.dev.js view on Meta::CPAN
(function(global) {
var Module = function(Module) {
Module = Module || {};
var Module = Module;
var Module;if(!Module)Module=(typeof Module!=="undefined"?Module:null)||{};var moduleOverrides={};for(var key in Module){if(Module.hasOwnProperty(key)){moduleOverrides[key]=Module[key]}}var ENVIRONMENT_IS_WEB=false;var ENVIRONMENT_IS_WORKER=false;var...
var asm=(function(global,env,buffer) {
"use asm";var a=new global.Int8Array(buffer);var b=new global.Int16Array(buffer);var c=new global.Int32Array(buffer);var d=new global.Uint8Array(buffer);var e=new global.Uint16Array(buffer);var f=new global.Uint32Array(buffer);var g=new global.Float3...
// EMSCRIPTEN_START_FUNCS
function CV(a,b,d,e){a=a|0;b=b|0;d=d|0;e=e|0;var f=0,g=0,i=0.0,j=0.0,k=0,m=0,n=0,o=0,p=0,q=0,r=0,s=0.0,t=0.0,u=0,v=0,w=0,x=0,y=0,z=0,A=0,B=0,C=0,D=0,E=0,G=0,H=0,I=0,J=0,K=0,L=0,M=0,N=0,O=0,P=0,Q=0,R=0,S=0,T=0,U=0,V=0,W=0,X=0,Y=0,Z=0,_=0,$=0;$=l;l=l+9...
function s_(b,e,f,g){b=b|0;e=e|0;f=f|0;g=g|0;var h=0,i=0,j=0,k=0,l=0,m=0,n=0,o=0,p=0;a:do if((e|0)!=(f|0)){p=b+76|0;l=b+356|0;m=f;n=b+360|0;i=e+1|0;o=b+364|0;h=m-e|0;j=(i|0)==(f|0);k=e+2|0;b:do switch(a[p+(d[e>>0]|0)>>0]|0){case 4:{if(j){e=-1;break a...
view release on metacpan or search on metacpan
lib/Data/AnyXfer/Elastic/Import/SpawnTask/Remote.pm view on Meta::CPAN
'-a', # archive mode,
'-v', # verbose
'-q', # keep partial files, show progress
'--no-p', # don't preserve permissions
'--no-g', # don't preserve groups
'--chmod=ugo=rwX', #
);
my $remote_target = sprintf '%s:%s', $remote_host->host,
$args{remote_target};
lib/Data/AnyXfer/Elastic/Import/SpawnTask/Remote.pm view on Meta::CPAN
);
# move the command file to the remote host
$command_file = $class->_remote_transfer_object( $command_file, $args );
# (and make it user executable)
$remote_host->run( 1, qq!chmod u+x $command_file! );
# spawn a background process running on the remote host
$remote_host->run( 0, qq/screen -d -m $command_file/ );
# find the PID of the remote command
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
ABSTRACT_FROM => 'lib/Data/AutoBimap.pm',
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 },