view release on metacpan or search on metacpan
}
}
if ($Flag_Generate_Score) {
# the files might be shared, so open up the permissions
chmod 0644, $ly_filename, $midi_filename, $score_filename;
} else {
# Preview.app got increasingly slower to actually start over time,
# hence this kluge. Eventually I switched to mupdf, and eventually
# the 2009 macbook died in late 2022.
sleep $Flag_Sleep_Kluge if $Flag_Sleep_Kluge > 0;
view release on metacpan or search on metacpan
public/javascripts/ace/mode-autohotkey.js view on Meta::CPAN
{ token: 'doc.comment.ahk',
regex: '#cs', push:
[ { token: 'doc.comment.ahk', regex: '#ce', next: 'pop' },
{ defaultToken: 'doc.comment.ahk' } ] },
{ token: 'keyword.command.ahk',
regex: '(?:\\b|^)(?:allowsamelinecomments|clipboardtimeout|commentflag|errorstdout|escapechar|hotkeyinterval|hotkeymodifiertimeout|hotstring|include|includeagain|installkeybdhook|installmousehook|keyhistory|ltrim|maxhotkeysperinterval|maxm...
caseInsensitive: true },
{ token: 'keyword.control.ahk',
regex: '(?:\\b|^)(?:if|else|return|loop|break|for|while|global|local|byref)\\b',
caseInsensitive: true },
{ token: 'support.function.ahk',
regex: '(?:\\b|^)(?:abs|acos|asc|asin|atan|ceil|chr|cos|dllcall|exp|fileexist|floor|getkeystate|il_add|il_create|il_destroy|instr|substr|isfunc|islabel|ln|log|lv_add|lv_delete|lv_deletecol|lv_getcount|lv_getnext|lv_gettext|lv_insert|lv_ins...
caseInsensitive: true },
{ token: 'variable.predefined.ahk',
regex: '(?:\\b|^)(?:a_ahkpath|a_ahkversion|a_appdata|a_appdatacommon|a_autotrim|a_batchlines|a_caretx|a_carety|a_computername|a_controldelay|a_cursor|a_dd|a_ddd|a_dddd|a_defaultmousespeed|a_desktop|a_desktopcommon|a_detecthiddentext|a_dete...
caseInsensitive: true },
{ token: 'support.constant.ahk',
regex: '(?:\\b|^)(?:shift|lshift|rshift|alt|lalt|ralt|control|lcontrol|rcontrol|ctrl|lctrl|rctrl|lwin|rwin|appskey|altdown|altup|shiftdown|shiftup|ctrldown|ctrlup|lwindown|lwinup|rwindown|rwinup|lbutton|rbutton|mbutton|wheelup|wheelleft|wh...
caseInsensitive: true },
{ token: 'variable.parameter',
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
my $MY_PERL = `which perl`;
chomp $MY_PERL;
my $bin = 'bin/navegante';
`$MY_YAPP -b $MY_PERL -o $bin lib/App/Navegante.yp`;
`chmod 755 $bin`;
WriteMakefile(
NAME => 'App::Navegante',
AUTHOR => 'Nuno Carvalho <smash@cpan.org>',
VERSION_FROM => 'lib/App/Navegante.pm',
view release on metacpan or search on metacpan
lib/App/Netdisco.pm view on Meta::CPAN
Make a directory for your local configuration and copy the configuration
template from this distribution:
mkdir ~/environments
cp ~/perl5/lib/perl5/auto/share/dist/App-Netdisco/environments/deployment.yml ~/environments
chmod 600 ~/environments/deployment.yml
Edit the file ("C<~/environments/deployment.yml>") and change the database
connection parameters to match those for your local system (that is, the
C<name>, C<user> and C<pass>).
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/App/NoPAN.pm view on Meta::CPAN
} elsif (! $fetched->{"$subdir$f"}) {
print "$subdir$f\n";
my $r = LWP::Simple::mirror("$base_url$subdir$f", "$dir/$subdir$f");
die "failed to fetch URL:$base_url$subdir$f, got $r"
unless $r == 200;
chmod 0755, "$dir/$subdir$f"
or die "failed to set chmod +x on file:$dir/$subdir/$f:$!";
$fetched->{"$subdir$f"} = 1;
}
}
}
view release on metacpan or search on metacpan
lib/App/Nopaste/Service/ssh.pm view on Meta::CPAN
print $tmp $args{text}
or return (0, "Can't write to tempfile $filename");
close $tmp
or return (0, "Can't write to tempfile $filename");
chmod oct($mode), $filename
if defined $mode;
system('scp', '-pq', $filename, "$server:$docroot");
my $file = ( File::Spec->splitpath($filename) )[2];
view release on metacpan or search on metacpan
lib/App/OATH.pm view on Meta::CPAN
my $lockh;
my $lockfilename = $self->get_lockfilename();
if ( ! -e $lockfilename ) {
open $lockh, '>', $lockfilename;
close $lockh;
chmod( 0600, $lockfilename );
}
open $lockh, '<', $lockfilename;
if ( !flock( $lockh, LOCK_EX | LOCK_NB ) ) {
return 0;
}
lib/App/OATH.pm view on Meta::CPAN
my $content = $json->encode( $data );
my $filename = $self->get_filename();
open( my $file, '>', $filename ) || die "cannot open file $!";
print $file $content;
close $file;
chmod( 0600, $filename );
return;
}
sub encrypt_data {
my ( $self ) = @_;
view release on metacpan or search on metacpan
docs/index.md view on Meta::CPAN
## Quick Start
1. download the bundle and make it executable:
curl -LO https://github.com/polettix/App-OnePif/raw/master/bundle/1pif
chmod +x 1pif
2. export all or part of 1Password database in the 1Password Interchange
Format (**beware that this is unencrypted**)
3. go in the export's main directory and run `1pif` downloaded above:
view release on metacpan or search on metacpan
lib/App/Oozie/Deploy.pm view on Meta::CPAN
# Left in place for historial reasons.
# All clusters should be under Kerberos.
# Possible removal in a future version.
#
# unsafe, but needed when uploading with mapred's uid or hdfs dfs cannot see the files
chmod oct( DEFAULT_FILE_MODE ), $config->{base_dest};
}
my $success = $self->upload_to_hdfs;
$self->maybe_update_coordinators( $update_coord ) if @{ $update_coord };
lib/App/Oozie/Deploy.pm view on Meta::CPAN
sprintf 'Attempting to mkdir HDFS destination %s',
$remote_base,
);
}
$hdfs->mkdir( $remote_base );
$hdfs->chmod( $remote_base, DEFAULT_DIR_MODE );
}
# since the above calls were silent, see if this throws anything
if ( $hdfs->exists($destFolder) ) {
if ( $verbose ) {
$logger->debug(
lib/App/Oozie/Deploy.pm view on Meta::CPAN
$logger->logdie(
sprintf 'Failed to create %s through WebHDFS',
$dest
);
}
$hdfs->chmod( $dest, DEFAULT_DIR_MODE );
}
my $d_rule = File::Find::Rule->new->directory->maxdepth(1)->mindepth(1);
my @folders = $d_rule->in($sourceFolder);
view release on metacpan or search on metacpan
t/50-openbin.t view on Meta::CPAN
local $/ = undef;
my $contents = <$in>;
$contents =~ s/^\@PERL\@/#!$^X/sg;
print { $out } $contents;
close($out);
chmod(0700, 't/resource/helpers/exit_1');
};
close($in);
};
} else {
Test::More->import('skip_all' => "Couldn't execute this perl!");
view release on metacpan or search on metacpan
bin/prefixadmin view on Meta::CPAN
$fmt_mode .= ($mode & S_IWOTH) ? "w" : "-";
$fmt_mode .= ($mode & S_IXOTH) ? (($mode & S_ISVTX) ? "t" : "x") : (($mode & S_ISVTX) ? "T" : "-");
return($fmt_mode);
}
# 1. $cnt = chmod 0755, 'foo', 'bar';
# 2. chmod 0755, @executables;
# 3. $mode = '0644'; chmod $mode, 'foo'; # !!! sets mode to
# 4. # --w----r-T
# 5. $mode = '0644'; chmod oct($mode), 'foo'; # this is better
# 6. $mode = 0644; chmod $mode, 'foo'; # this is best
# 1. $cnt = chown $uid, $gid, 'foo', 'bar';
# 2. chown $uid, $gid, @filenames;
sub _share_file {
bin/prefixadmin view on Meta::CPAN
$mode_needs_fix = 1;
}
}
if ($mode_needs_fix) {
$retval = chmod($share_mode, $file);
if ($verbose) {
printf(">>> chmod(%06o, $file) = [$retval]\n", $share_mode);
}
}
}
return($err_msg);
}
view release on metacpan or search on metacpan
lib/App/Padadoy.pm view on Meta::CPAN
};
my $file = $self->{repository}.'/hooks/update';
$self->msg("$file as executable");
write_file($file, read_file(dist_file('App-Padadoy','update')));
chmod 0755,$file;
$file = $self->{repository}.'/hooks/post-receive';
$self->msg("$file as executable");
write_file($file, read_file(dist_file('App-Padadoy','post-receive')));
chmod 0755,$file;
$self->msg("logs/");
mkdir 'logs';
$self->msg("app -> current/app");
view release on metacpan or search on metacpan
Examples.pm view on Meta::CPAN
mkdir 'examples';
}
# Save example.
barf($example_path, $example_data);
chmod 0755, $example_path;
$num++;
}
}
view release on metacpan or search on metacpan
script/perl-gzip-script view on Meta::CPAN
exit if !$in_place;
$out->close;
my $mode = (stat $script)[2];
chmod $mode, $out->filename;
rename $out->filename, $script or die $!;
$out->unlink_on_destroy(0);
view release on metacpan or search on metacpan
t/oddmuse-wiki.pl view on Meta::CPAN
sub IsDir { return -d encode_utf8(shift); }
sub ZeroSize { return -z encode_utf8(shift); }
sub Unlink { return unlink(map { encode_utf8($_) } @_); }
sub Modified { return (stat(encode_utf8(shift)))[9]; }
sub Glob { return map { decode_utf8($_) } bsd_glob(encode_utf8(shift)); }
sub ChangeMod { return chmod(shift, map { encode_utf8($_) } @_); }
sub Rename { return rename(encode_utf8($_[0]), encode_utf8($_[1])); }
sub RemoveDir { return rmdir(encode_utf8(shift)); }
sub ChangeDir { return chdir(encode_utf8(shift)); }
sub CreateDir {
view release on metacpan or search on metacpan
script/pick view on Meta::CPAN
# }
# die "Cannot resolve Sah schema: can't check whether $type is a builtin Sah type: $err"
# unless $err =~ /\ACan't locate/;
#
# # not a type, try a schema under Sah::Schema
# my $schmod = "Sah::Schema::$type";
# (my $schmod_pm = "$schmod.pm") =~ s!::!/!g;
# eval { require $schmod_pm; 1 };
# die "Cannot resolve Sah schema: not a known built-in Sah type '$type' (can't locate ".
# "Data::Sah::Type::$type) and not a known schema name '$type' ($@)"
# if $@;
# no strict 'refs';
# my $sch2 = ${"$schmod\::schema"};
# die "Cannot resolve Sah schema: BUG: Schema module $schmod doesn't contain \$schema"
# unless $sch2;
# $res->{type} = $sch2->[0];
# unshift @{ $res->{clsets_after_type} }, $sch2->[1];
# _resolve($opts, $res);
#}
view release on metacpan or search on metacpan
t/cpan/Mojo2/File.pm view on Meta::CPAN
sub basename { File::Basename::basename ${ shift() }, @_ }
sub child { $_[0]->new( ${ shift() }, @_ ) }
sub chmod {
my ( $self, $mode ) = @_;
chmod $mode, $$self or croak qq{Can't chmod file "$$self": $!};
return $self;
}
sub copy_to {
my ( $self, $to ) = @_;
t/cpan/Mojo2/File.pm view on Meta::CPAN
Return a new L<Mojo::File> object relative to the path.
# "/home/sri/.vimrc" (on UNIX)
path('/home')->child('sri', '.vimrc');
=head2 chmod
$path = $path->chmod(0644);
Change file permissions.
=head2 copy_to
view release on metacpan or search on metacpan
0.09 2014-02-01
- Changed the test filenames to fit in 8.3, in case that's
why my Win32 tests are failing...
0.08 2014-02-01
- After creating files in testsuite, chmod 0600 them before unlinking.
Hopefully that will fix some test failures on Win32...
0.07 2014-01-30
- Specified min perl version 5.6.0
view release on metacpan or search on metacpan
maint/Makefile.PL.include view on Meta::CPAN
(my $postamble = <<' END') =~ s/^ //mg;
distdir: mangle_script
mangle_script:
rm $(DISTVNAME)/bin/procapult # it's a hard link. wtf.
(cat bin/procapult; <lib/App/Procapult.pm perl -ne '$$x++ if /=head1 SYNOPSIS/; print if $$x') >$(DISTVNAME)/bin/procapult
chmod 755 $(DISTVNAME)/bin/procapult
END
$postamble;
}
view release on metacpan or search on metacpan
lib/App/Provision/Ssh.pm view on Meta::CPAN
my $file = $self->_keyfile();
$self->recipe(
[ 'mkdir', '.ssh' ],
[ 'chmod', '700', '.ssh' ],
[ 'ssh-keygen', '-t', $self->{keytype}, '-f', $file ],
[ "cat $ENV{HOME}/.ssh/$file.pub | tr -d '\n' | pbcopy" ],
[ 'echo', '* Now paste your public key into https://github.com/settings/ssh *' ],
);
}
view release on metacpan or search on metacpan
fatpack/fatpack.sh view on Meta::CPAN
${FATPACK} file ../script/pureproxy.pl >pureproxy
${PERL} -pi -e 's{^#!.*/perl$}{#!/usr/bin/env perl}' pureproxy
${PERL} -MConfig -pi -e 's{$Config{archname}/}{}' pureproxy
${PERL} -MText::Unidecode=unidecode -CSD -0777 -pi -e 'unidecode $_' pureproxy
chmod +x pureproxy
${PERL} ./pureproxy -v
view release on metacpan or search on metacpan
lib/Python/File.pm view on Meta::CPAN
# set file executability permission based on presence of shebang;
# an executable script has a shebang, a non-executable module AKA library does not have a shebang
if((defined $self->{python_preparsed}->[0]) and ($self->{python_preparsed}->[0]->isa('Python::Shebang'))) {
print 'in python_file_to_perl_file(), setting executable permission of Perl file', "\n";
chmod(S_IXUSR, $self->{perl_file_path})
or croak 'ERROR EPYFI05z: failed to chmod u+x Perl source code file \'', $self->{perl_file_path},
'\' after closing, received OS error message \'', $OS_ERROR, '\', croaking';
}
print 'in python_file_to_perl_file(), about to return $self->{perl_file_path} = \'', $self->{perl_file_path}, '\'', "\n";
return $self->{perl_file_path};
view release on metacpan or search on metacpan
t/compile-quotes.t view on Meta::CPAN
ok(-s $quotes, "$quotes is non-zero size");
ok(-s $output, "$output is non-zero size");
given ($compiler) {
when ('Lua') {
system "chmod +x $output";
chomp(my $quote = qx[lua $output]);
ok($quote, "Got quote from $output");
chomp($quote = qx[lua $output --all]);
view release on metacpan or search on metacpan
t/04-environment.t view on Meta::CPAN
my $err;
fake_version('moar-2020.01');
my $print_script = "$homedir/versions/moar-2020.01/bin/print-env.pl";
copy("$FindBin::Bin/bin/print-env.pl", $print_script);
chmod 0755, $print_script;
run([@rakubrew, "switch", "moar-2020.01"], \"", \$out, \$err);
run([@rakubrew, "mode", "shim"], \"", \$out, \$err);
run([@exec, "$homedir/shims/print-env.pl"], \"", \$out);
view release on metacpan or search on metacpan
You can also copy the standalone executable to whatever location you'd like.
% cd ~/bin
% curl -o randf -L http://bit.ly/app-randf
% chmod +x randf
NOTE: edit shebang if you don't have /usr/bin/env
=head1 DOCUMENTATION
view release on metacpan or search on metacpan
lib/App/RecordStream/Bio.pm view on Meta::CPAN
The quickest way to start using these tools is via the minimal, standalone
bundle (also known as the "fatpacked" version). First, grab
L<recs|App::RecordStream/INSTALLATION> if you don't already have it:
curl -fsSL https://recs.pl > recs
chmod +x recs
Then grab these bio tools and put them in place for recs:
mkdir -p ~/.recs/site/
curl -fsSL https://recs.pl/bio > ~/.recs/site/bio.pm
view release on metacpan or search on metacpan
lib/App/RecordStream.pm view on Meta::CPAN
=head2 Quick, standalone bundle
The quickest way to start using recs is via the minimal, standalone bundle:
curl -fsSL https://recs.pl > recs
chmod +x recs
./recs --help
This is also known as the "fatpacked" recs.
=head2 From CPAN
view release on metacpan or search on metacpan
lib/App/Regather/Config.pm view on Meta::CPAN
sslversion = STRING
verify = STRING
[service ANY]
all_attr = NUMBER :default 0
chmod = OCTAL :default 0640
chown = NUMBER :default 1
ctrl_attr = STRING :mandatory :array
ctrl_srv_re = STRING :mandatory
gid = STRING
out_ext = STRING
view release on metacpan or search on metacpan
share/ppt/cp.pl view on Meta::CPAN
{
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat $path;
utime $atime, $mtime, ($target);
chown $uid, $gid, ($target);
my $oldMode = (07777 & $mode); ## from man -s 2 mknod
chmod $oldMode, $target;
}
}
################################################################################
## print Insufficient arguments error