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();
view release on metacpan or search on metacpan
lib/Latin3.pm view on Meta::CPAN
my $e_script = Latin3::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/Latin4.pm view on Meta::CPAN
my $e_script = Latin4::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/Latin5.pm view on Meta::CPAN
my $e_script = Latin5::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/Latin6.pm view on Meta::CPAN
my $e_script = Latin6::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/Latin7.pm view on Meta::CPAN
my $e_script = Latin7::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();