view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libfcgi-perl", "FCGI", "0.67", "1", "0"
"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-changenotify-perl", "File-ChangeNotify", "not-uploaded", "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.0", "0", "0"
"libfile-find-rule-perl", "File-Find-Rule", "0.30", "1", "0"
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
# --- 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/CatalystX/Crudite/Util.pm view on Meta::CPAN
copy($original, $filename) or die "copy failed: $!";
}
} elsif (my $content = $result{$filename}{write}) {
$log->("template -> $filename");
write_file($filename, $content) unless $args{dryrun};
chmod 0755, $filename if $filename =~ /\.(pl|sh)$/;
}
}
$log->('Finished.');
}
1;
view release on metacpan or search on metacpan
lib/CatalystX/Starter.pm view on Meta::CPAN
$dist_name =~ s/::/-/g;
$main_module_path =~ s|::|/|g;
foreach my $file (@files) {
my $data = read_file($file);
chmod 0644, $file;
$data =~ s/\[% DIST_NAME %\]/$dist_name/g;
$data =~ s/\[% MODULE %\]/$module/g;
$data =~ s/\[% MAIN_MODULE_PATH %\]/$main_module_path/g;
write_file($file, $data);
}
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
view release on metacpan or search on metacpan
lib/Catmandu.pm view on Meta::CPAN
$ cat myfixes.fix
#!/usr/local/bin/catmandu run
do importer(OAI,url:"http://biblio.ugent.be/oai")
retain(_id)
end
$ chmod 755 myfixes.fix
$ ./myfixes.fix
=head1 DESCRIPTION
Catmandu provides a command line tools for the conversion of various data
view release on metacpan or search on metacpan
lib/CfgTie/filever.pm view on Meta::CPAN
#Migrate us to some backup copies, use one more than default so we
#can unroll
&Roll($Old,$RollDepth+1);
# Modify the permissions of the new file to match that of the old one.
if (!chmod($S[2], $New) ||
# Modify the ownership of the new file to match that of the old one.
!chown($S[4], $S[5], $New)||
!rename($New, $Old))
view release on metacpan or search on metacpan
t/cfn_json/001.json view on Meta::CPAN
"UserData" : {
"Fn::Base64" : {
"Fn::Join" : [
"",
[
"#!/bin/bash\necho \"code ALL=(ALL) NOPASSWD:ALL\" > /etc/sudoers.d/code\nchmod 440 /etc/sudoers.d/code\napt-get install -y git htop\n"
]
]
}
},
"ImageId" : {
view release on metacpan or search on metacpan
example/example-latex.pl view on Meta::CPAN
handler => sub {
my ($t_name,$t_base,$t_ext)=@_;
my $rerun=1;
my ($multiply_defined_labels,$undefined_references,$font_shapes_not_available);
while ($rerun) {
print "> latex -interaction=batchmode $t_base.tex\n";
$rerun=0;
$multiply_defined_labels=0;
my $output=`latex $t_base.tex`;
$rerun=1 if ($output =~ /LaTeX Warning: Label\(s\) may have changed/);
$multiply_defined_labels=1 if ($output =~ /LaTeX Warning: There were multiply-defined labels/);
view release on metacpan or search on metacpan
lib/Chandra/Pack.pm view on Meta::CPAN
for my $key (sort keys %CONFIG) {
next unless defined $CONFIG{$key};
$content .= "$key = $CONFIG{$key}\n";
}
file_spew($file, $content);
chmod 0600, $file; # Protect credentials
}
# Load config on module load
_load_config();
lib/Chandra/Pack.pm view on Meta::CPAN
file_mkpath($share);
# AppRun
my $apprun = file_join($app_dir, 'AppRun');
file_spew($apprun, $self->_generate_launcher_linux());
chmod 0755, $apprun;
# Desktop entry
file_spew(file_join($app_dir, lc($safe) . '.desktop'), $self->_generate_desktop());
# Copy script
lib/Chandra/Pack.pm view on Meta::CPAN
if ($? != 0) {
return { success => 0, error => "appimagetool failed: $output" };
}
# Make executable
chmod 0755, $appimage_path;
return { success => 1, path => $appimage_path };
}
sub _find_command {
view release on metacpan or search on metacpan
lib/Arabic.pm view on Meta::CPAN
my $e_script = Arabic::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();
view release on metacpan or search on metacpan
lib/Big5HKSCS.pm view on Meta::CPAN
my $e_script = Big5HKSCS::escape_script($filename);
print {$fh} $e_script;
my $mode = (Ebig5hkscs::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Big5Plus.pm view on Meta::CPAN
my $e_script = Big5Plus::escape_script($filename);
print {$fh} $e_script;
my $mode = (Ebig5plus::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
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();
view release on metacpan or search on metacpan
lib/EUCJP.pm view on Meta::CPAN
my $e_script = EUCJP::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();
view release on metacpan or search on metacpan
lib/EUCTW.pm view on Meta::CPAN
my $e_script = EUCTW::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();
view release on metacpan or search on metacpan
lib/GB18030.pm view on Meta::CPAN
my $e_script = GB18030::escape_script($filename);
print {$fh} $e_script;
my $mode = (Egb18030::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
my $e_script = GBK::escape_script($filename);
print {$fh} $e_script;
my $mode = (Egbk::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Greek.pm view on Meta::CPAN
my $e_script = Greek::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();
view release on metacpan or search on metacpan
lib/HP15.pm view on Meta::CPAN
my $e_script = HP15::escape_script($filename);
print {$fh} $e_script;
my $mode = (Ehp15::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Hebrew.pm view on Meta::CPAN
my $e_script = Hebrew::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();
view release on metacpan or search on metacpan
lib/INFORMIXV6ALS.pm view on Meta::CPAN
my $e_script = INFORMIXV6ALS::escape_script($filename);
print {$fh} $e_script;
my $mode = (Einformixv6als::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/JIS8.pm view on Meta::CPAN
my $e_script = JIS8::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();
view release on metacpan or search on metacpan
lib/KOI8R.pm view on Meta::CPAN
my $e_script = KOI8R::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();
view release on metacpan or search on metacpan
lib/KOI8U.pm view on Meta::CPAN
my $e_script = KOI8U::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();
view release on metacpan or search on metacpan
lib/KPS9566.pm view on Meta::CPAN
my $e_script = KPS9566::escape_script($filename);
print {$fh} $e_script;
my $mode = (Ekps9566::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
view release on metacpan or search on metacpan
lib/Latin1.pm view on Meta::CPAN
my $e_script = Latin1::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();
view release on metacpan or search on metacpan
lib/Latin10.pm view on Meta::CPAN
my $e_script = Latin10::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();
view release on metacpan or search on metacpan
lib/Latin2.pm view on Meta::CPAN
my $e_script = Latin2::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();