Result:
found more than 1006 distributions - search limited to the first 2001 files matching your query
( run in 0.519 )
AC-Yenta
view release on metacpan or search on metacpan
lib/AC/Yenta/Store/BDBI.pm view on Meta::CPAN
);
problem("cannot open db file $file") unless $db;
# web server will need access
chmod 0666, $file;
return bless {
dir => $dir,
file => $file,
db => $db,
ACME-QuoteDB
view release on metacpan or search on metacpan
lib/ACME/QuoteDB.pm view on Meta::CPAN
=over 1
=item * By default, the quotes database used by this module installs in the
system path, 'lib', (See L<Module::Build/"INSTALL PATHS">)
as world writable - i.e. 0666 (and probably owned by root)
If you don't like this, you can modify Build.PL to not chmod the file and it
will install as 444/readonly, you can also set a chown in there for whoever
you want to have RW access to the quotes db.
Alternativly, one can specify a location to a quotes database (file) to use.
(Since the local mode is sqlite3, the file doesn't even need to exist, just
ADAMK-Release
view release on metacpan or search on metacpan
lib/ADAMK/Release.pm view on Meta::CPAN
our $VERSION = '0.02';
use constant TOOLS => qw{
cat
chmod
make
touch
sudo
bash
};
lib/ADAMK/Release.pm view on Meta::CPAN
# Check file permissions
foreach my $file ( sort $self->find_0644->in( $self->dist_dir ) ) {
my $mode = (stat($file))[2] & 07777;
next if $mode == 0644;
$self->shell(
$self->bin_chmod,
'0644',
$file,
"Error setting $file to 0644 permissions",
);
}
AI-ANN
view release on metacpan or search on metacpan
_Inline/build/AI/ANN/Neuron_6185/Makefile view on Meta::CPAN
XSUBPP_EXTRA_ARGS =
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
AI-CRM114
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
(ABSTRACT_FROM => 'lib/AI/CRM114.pm', # retrieve abstract from module
AUTHOR => 'Bjoern Hoehrmann <bjoern@hoehrmann.de>') : ()),
LICENSE => 'perl',
'dist' => {
PREOP => 'chmod 600 Makefile.PL',
TARFLAGS => '--group=cpan --owner=bjoern -cvf',
},
);
AI-Logic-AnswerSet
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
API-INSEE-Sirene
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
ASNMTAP
view release on metacpan or search on metacpan
applications/htmlroot/cgi-bin/admin/generateConfig.pl view on Meta::CPAN
if (($generated =~ /^DisplayCT-[\w-]+.sh$/) or ($generated =~ /^CollectorCT-[\w-]+.sh$/)) {
$commands {$server} {CHMOD} {++$_id} {auto} = 1;
$commands {$server} {CHMOD} {$_id} {label} = '+b';
$commands {$server} {CHMOD} {$_id} {active} = $active;
$commands {$server} {CHMOD} {$_id} {command} = "$SSHCOMMAND $connectArguments $SSHLOGONNAME\@$server chmod 755 ". $ASNMTAP_PATH { substr ($type, -1, 1) } { $server } ."/applications/$subpath$generated";
$compareText .= '<br><FONT COLOR="#99CC99"> ['. $_id .'] '. $commands {$server} {CHMOD} {$_id} {command} .'</FONT>' if ( $debug eq 'T' );
$commands {$server} {START} {++$_id} {auto} = 1;
$commands {$server} {START} {$_id} {label} = '+c';
$commands {$server} {START} {$_id} {active} = $active;
ASP4
view release on metacpan or search on metacpan
lib/ASP4/Config.pm view on Meta::CPAN
{
$root .= "$next/";
mkdir($root) unless -d $root;
die "Cannot create path to '@{[ $s->web->page_cache_root ]}' - stopped at '$root': $!"
unless -d $root;
chmod(0777, $root);
}# end while()
}# end unless()
(my $compiled_root = $s->{web}->{page_cache_root} . '/' . $s->{web}->{application_name}) =~ s/::/\//g;
my $folder = $^O =~ m{win32}i ? '' : "/";
lib/ASP4/Config.pm view on Meta::CPAN
{
$folder .= "$part/";
unless( -d $folder )
{
mkdir($folder);
chmod(0777, $folder)
}# end unless()
confess "Folder '$folder' does not exist and cannot be created"
unless -d $folder;
}# end foreach()
AcePerl
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
install-browser :
util/install.pl acebrowser/htdocs $html_path
util/install.pl acebrowser/cgi-bin $cgi_path
util/install.pl acebrowser/conf $conf_path
mkdir $html_path/images
chmod go+rwx $html_path/images
';
}
END
print qq(\n*** After "make install", run "make install-browser" to install acebrowser files. ***\n\n);
}
Acme-Archive-Mbox
view release on metacpan or search on metacpan
bin/mboxextract view on Meta::CPAN
mkpath(File::Spec->catdir($rootdir, $dirs));
my $writename = File::Spec->catfile($rootdir, $dirs, $filename);
write_file($writename, {binmode => ':raw'}, $file->contents );
chmod $file->mode, $writename or warn "$0: chmod $writename: $!\n";
if ($> == 0) {
chown $file->uid, $file->gid, $writename or warn "$0: chown $writename: $!\n";
}
}
Acme-BOATES
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
Acme-CPANModules-UnixCommandImplementations
view release on metacpan or search on metacpan
lib/Acme/CPANModules/UnixCommandImplementations.pm view on Meta::CPAN
{
module => 'PerlPowerTools',
script => [qw/
addbib apply ar arch arithmetic asa awk banner base64 basename
bc bcd cal cat chgrp ching chmod chown clear cmp col colrm comm
cp cut date dc deroff diff dirname du echo ed env expand expr
factor false file find fish fmt fold fortune from glob grep
hangman head hexdump id install join kill ln lock look ls mail
maze mimedecode mkdir mkfifo moo morse nl od par paste patch pig
ping pom ppt pr primes printenv printf pwd rain random rev rm
lib/Acme/CPANModules/UnixCommandImplementations.pm view on Meta::CPAN
/],
'x.command' => [qw/
addbib apply ar arch arithmetic asa awk banner base64 basename
bc bcd cal cat chgrp ching chmod chown clear cmp col colrm comm
cp cut date dc deroff diff dirname du echo ed env expand expr
factor false file find fish fmt fold fortune from glob grep
hangman head hexdump id install join kill ln lock look ls mail
maze mimedecode mkdir mkfifo moo morse nl od par paste patch pig
ping pom ppt pr primes printenv printf pwd rain random rev rm
lib/Acme/CPANModules/UnixCommandImplementations.pm view on Meta::CPAN
=over
=item L<PerlPowerTools>
Scripts: L<addbib>, L<apply>, L<ar>, L<arch>, L<arithmetic>, L<asa>, L<awk>, L<banner>, L<base64>, L<basename>, L<bc>, L<bcd>, L<cal>, L<cat>, L<chgrp>, L<ching>, L<chmod>, L<chown>, L<clear>, L<cmp>, L<col>, L<colrm>, L<comm>, L<cp>, L<cut>, L<date>...
=back
=head1 FAQ
Acme-CPANModulesBundle-Import-MojoliciousAdvent-2018
view release on metacpan or search on metacpan
devdata/https_mojolicious.io_blog_2018_12_23_mojolicious-and-angular_ view on Meta::CPAN
<p>First I generate mojo full app using <code>mojo</code> CLI's <a href="https://mojolicious.org/perldoc/Mojolicious/Command/generate/app">generate app</a> command.</p>
<pre><code>Sachin@01:07 PM[~/workspace/project/mojo_angular]$ mojo generate app MojoAngularApp
[mkdir] /Users/Sachin/workspace/project/mojo_angular/mojo_angular_app/script
[write] /Users/Sachin/workspace/project/mojo_angular/mojo_angular_app/script/mojo_angular_app
[chmod] /Users/Sachin/workspace/project/mojo_angular/mojo_angular_app/script/mojo_angular_app 744
[mkdir] /Users/Sachin/workspace/project/mojo_angular/mojo_angular_app/lib
[write] /Users/Sachin/workspace/project/mojo_angular/mojo_angular_app/lib/MojoAngularApp.pm
[exist] /Users/Sachin/workspace/project/mojo_angular/mojo_angular_app
[write] /Users/Sachin/workspace/project/mojo_angular/mojo_angular_app/mojo_angular_app.conf
[mkdir] /Users/Sachin/workspace/project/mojo_angular/mojo_angular_app/lib/MojoAngularApp/Controller
Acme-DependOnEverything
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use File::chdir;
use File::chdir::WalkDir;
use File::Checkm::v;
use File::Checksum;
use File::CheckTree;
use File::chmod;
use File::chmod::Recursive::v;
use File::chown;
use File::Chunk;
use File::CleanupTask;
use File::Cmp;
use File::Coda;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Regexp::Ethiopic;
use Regexp::Exhaustive;
use Regexp::Extended;
use Regexp::Fields;
use Regexp::Flow;
use Regexp::Functions::chmod_et_al;
use Regexp::Genex;
use Regexp::Grammars;
use Regexp::Grammars::Common::String::targ;
use Regexp::HTMLify;
use Regexp::ID::NumVerbage;
Acme-IEnumerable
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# Un-comment this if you add C files to link with later:
# OBJECT => '$(O_FILES)', # link all the C files too
LICENSE => 'perl',
'dist' => {
PREOP => 'chmod 600 Makefile.PL',
TARFLAGS => '--group=none --owner=bjoern --mode=a+rw -cvf',
COMPRESS => 'gzip -9',
},
clean => { FILES => [], },
);
Acme-Intraweb
view release on metacpan or search on metacpan
# --- MakeMaker tools_other section:
SHELL = cmd /x /c
CHMOD = $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e chmod
CP = $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e cp
LD = link
MV = $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e mv
NOOP = rem
RM_F = $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Command -e rm_f
Acme-MITHALDU-BleedingOpenGL
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
if (! -x "$dll_dir/freeglut.dll")
{
my $mode = (stat("$dll_dir/freeglut.dll"))[2];
my $perm = $mode & 07777;
print "freeglut.dll not executable (perms=%4o), changing permissions...\n";
chmod $perm|0755, "$dll_dir/freeglut.dll" or warn "Error changing freeglut.dll perms: $!";
}
if (-e "$dll_dir/freeglut.dll")
{
Acme-MetaSyntactic-vim
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
osfiletype
paragraphs
paste
pastetoggle
patchexpr
patchmode
path
preserveindent
previewheight
previewwindow
printdevice
Acme-MotorcycleGang
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
Acme-Partitioner
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
INC => '', # e.g., '-I/usr/include/other'
XSOPT => '',
OBJECT => '',
LICENSE => 'perl',
'dist' => {
PREOP => 'chmod 600 Makefile.PL',
TARFLAGS => '--group=none --owner=bjoern --mode=a+rw -cvf',
COMPRESS => 'gzip -9',
},
META_MERGE => {
Acme-RunDoc
view release on metacpan or search on metacpan
join eval tell rand reverse ord chr eval split xor
uc prototype eval lcfirst join chmod kill eval ref
split sprintf reverse times xor not eval and srand
tell sqrt formline eval ord lcfirst ucfirst length
glob gmtime exp defined caller or binmode log ord
abs lc sqrt study alarm split time or formline cos
ne rewinddir kill chdir reset prototype split sqrt
Acme-Shining
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
my $repstartpos = index($distdir_sec,"\'\$(DIST_CP)\');\"");
die "distdir cant match" if $repstartpos == -1;
substr($distdir_sec
,$repstartpos
,length("\'\$(DIST_CP)\');\"")
,"\'\$(DIST_CP)\');\" \\\n\t&& cd \$(DISTVNAME) && chmod -v -x-x-x Makefile.PL"
);
return $distdir_sec;
}
package main;
Acme-Sort-Sleep
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
$@ = $status->{message};
return 0;
}
sub make_executable {
# Perl's chmod() is mapped to useful things on various non-Unix
# platforms, so we use it in the base class even though it looks
# Unixish.
my $self = shift;
foreach (@_) {
my $current_mode = (stat $_)[2];
chmod $current_mode | oct(111), $_;
}
}
sub is_executable {
# We assume this does the right thing on generic platforms, though
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
@$lines = grep {!exists $existing_files->{$_}} @$lines
or return;
my $mode = (stat $manifest)[2];
chmod($mode | oct(222), $manifest) or die "Can't make $manifest writable: $!";
open(my $fh, '<', $manifest) or die "Can't read $manifest: $!";
my $last_line = (<$fh>)[-1] || "\n";
my $has_newline = $last_line =~ /\n$/;
close $fh;
open($fh, '>>', $manifest) or die "Can't write to $manifest: $!";
print $fh "\n" unless $has_newline;
print $fh map "$_\n", @$lines;
close $fh;
chmod($mode, $manifest);
$self->log_verbose(map "Added to $manifest: $_\n", @$lines);
}
sub _sign_dir {
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
(grep { length($_) >= 100 } @$files) ? 0 : 1;
my $tar = Archive::Tar->new;
$tar->add_files(@$files);
for my $f ($tar->get_files) {
$f->mode($f->mode & ~022); # chmod go-w
}
$tar->write("$file.tar.gz", 1);
}
}
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
File::Path::mkpath(File::Basename::dirname($to_path), 0, oct(777));
$self->log_verbose("Copying $file -> $to_path\n");
if ($^O eq 'os2') {# copy will not overwrite; 0x1 = overwrite
chmod 0666, $to_path;
File::Copy::syscopy($file, $to_path, 0x1) or die "Can't copy('$file', '$to_path'): $!";
} else {
File::Copy::copy($file, $to_path) or die "Can't copy('$file', '$to_path'): $!";
}
# mode is read-only + (executable if source is executable)
my $mode = oct(444) | ( $self->is_executable($file) ? oct(111) : 0 );
chmod( $mode, $to_path );
return $to_path;
}
sub up_to_date {
Acme-TestDist-Cpp-EUMM-EUCppGuess
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
ABSTRACT_FROM => 'lib/Acme/TestDist/Cpp/EUMM/EUCppGuess.pm',
VERSION_FROM => 'lib/Acme/TestDist/Cpp/EUMM/EUCppGuess.pm', # finds $VERSION
MIN_PERL_VERSION => '5.6.0',
PREREQ_PM => {}, # e.g., Module::Name => 1.1
dist => {
PREOP => 'pod2text lib/Acme/TestDist/Cpp/EUMM/EUCppGuess.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
$guess->makemaker_options,
Acme-Tools
view release on metacpan or search on metacpan
my $fn="$td/acme-tools-currency-rates.data";
if( !-e$fn or time() - (stat($fn))[9] >= $Currency_rates_expire){
LWP::Simple::getstore($Currency_rates_url,"$fn.$$.tmp"); # get ... see getrates.cmd
die "nothing downloaded" if !-s"$fn.$$.tmp";
rename "$fn.$$.tmp",$fn;
chmod 0666,$fn;
}
my $d=readfile($fn);
my %r=$d=~/^\s*([A-Z]{3}) +(\d+\.\d+)\b/gm;
$r{lc($_)}=$r{$_} for keys%r;
#warn serialize([minus([sort keys(%r)],[sort keys(%{$conv{money}})])],'minus'); #ARS,AED,COP,BWP,LVL,BHD,NPR,LKR,QAR,KWD,LYD,SAR,KZT,CLP,IRR,VEF,TTD,OMR,MUR,BND
my %R=webparams();
print "Content-Type: text/plain\n\n"; # or rather \cM\cJ\cM\cJ instead of \n\n to be http-compliant
print "My name is $R{name}";
Storing those four lines in a file in the directory designated for CGI-scripts
on your web server (or perhaps naming the file .cgi is enough), and C<chmod +x
/.../cgi-bin/script> and the URL
L<http://some.server.somewhere/cgi-bin/script?name=HAL> will print
C<My name is HAL> to the web page.
L<http://some.server.somewhere/cgi-bin/script?name=Bond&name=+James+Bond> will print C<My name is Bond, James Bond>.
$keep || unlink($file);
}
=head2 chall
Does chmod + utime + chown on one or more files.
Returns the number of files of which those operations was successful.
Mode, uid, gid, atime and mtime are set from the array ref in the first argument.
my @stat=stat($filenameA);
chall( \@stat, $filenameB, $filenameC, ... ); # by stat-array
chall( $filenameA, $filenameB, $filenameC, ... ); # by file name
Copies the chmod, owner, group, access time and modify time from file A to file B and C.
See C<perldoc -f stat>, C<perldoc -f chmod>, C<perldoc -f chown>, C<perldoc -f utime>
=cut
sub chall {
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks )
= ref($_[0]) ? @{shift()} : stat(shift());
my $successful=0;
for(@_){ chmod($mode,$_) && utime($atime,$mtime,$_) && chown($uid,$gid,$_) && $successful++ }
return $successful;
}
=head2 makedir
The commands C<2xz>, C<2bz2> and C<2gz> are just synonyms for C<z2z> with an implicitly added option C<-t xz>, C<-t xz> or C<-t gz> accordingly.
z2z [-p -k -v -o -1 -2 -3 -4 -5 -6 -7 -8 -9 ] files
Converts (recompresses) files from one compression type to another. For instance from .gz to .bz2
Keeps uid, gid, mode (chmod) and mtime.
-p Show a progress meter using the pv program if installed
-k Keeps original file
-v Verbose, shows info on degree of compression and file
number if more than one file is being converted
sub install_acme_command_tools {
my $dir=(grep -d$_, @_, '/usr/local/bin', '/usr/bin')[0];
for( qw( conv due xcat freq finddup ccmd trunc wipe rttop z2z 2gz 2gzip 2bz2 2bzip2 2xz resubst zsize) ){
unlink("$dir/$_");
writefile("$dir/$_", "#!$^X\nuse Acme::Tools;\nAcme::Tools::cmd_$_(\@ARGV);\n");
sys("/bin/chmod +x $dir/$_"); #hm umask
print "Wrote executable $dir/$_\n";
}
}
sub cmd_conv { print conv(@ARGV)."\n" }
our @Due_fake_stdin;
my $cmd=qq($cat "$_"|$unz|$z>"$new");
#todo: "$cat $_|$unz|$cnt|$z>$new";
#cat /tmp/kontroll-linux.xz|unxz|tee >(wc -c>/tmp/p)|gzip|wc -c;cat /tmp/p
$cmd=~s,\|+,|,g; #print "cmd: $cmd\n";
sys($cmd);
chall($_,$new) or croak("$0 cannot chmod|chown|touch $new") if !$o{n};
my($szold,$sznew)=map{-s$_}($_,$new);
$bsf+=-s$_;
unlink $_ if !$o{k};
rename($new, replace($new,qr/.tmp$/)) or die if $same;
if($o{v}){
Acme-W
view release on metacpan or search on metacpan
lib/Acme/W.pm view on Meta::CPAN
s/([^\$\w\d])elsif([^\w\d])/$1WwWwWw$2/g;
s/([^\$\w\d])crypt([^\w\d])/$1WwWwwW$2/g;
s/([^\$\w\d])close([^\w\d])/$1WwWwww$2/g;
s/([^\$\w\d])chown([^\w\d])/$1WwwWWW$2/g;
s/([^\$\w\d])chomp([^\w\d])/$1WwwWWw$2/g;
s/([^\$\w\d])chmod([^\w\d])/$1WwwWwW$2/g;
s/([^\$\w\d])chdir([^\w\d])/$1WwwWww$2/g;
s/([^\$\w\d])break([^\w\d])/$1WwwwWW$2/g;
s/([^\$\w\d])bless([^\w\d])/$1WwwwWw$2/g;
s/([^\$\w\d])atan2([^\w\d])/$1WwwwwW$2/g;
s/([^\$\w\d])alarm([^\w\d])/$1Wwwwww$2/g;
lib/Acme/W.pm view on Meta::CPAN
s/([^\$\w\d])WwWwWw([^\w\d])/$1elsif$2/g;
s/([^\$\w\d])WwWwwW([^\w\d])/$1crypt$2/g;
s/([^\$\w\d])WwWwww([^\w\d])/$1close$2/g;
s/([^\$\w\d])WwwWWW([^\w\d])/$1chown$2/g;
s/([^\$\w\d])WwwWWw([^\w\d])/$1chomp$2/g;
s/([^\$\w\d])WwwWwW([^\w\d])/$1chmod$2/g;
s/([^\$\w\d])WwwWww([^\w\d])/$1chdir$2/g;
s/([^\$\w\d])WwwwWW([^\w\d])/$1break$2/g;
s/([^\$\w\d])WwwwWw([^\w\d])/$1bless$2/g;
s/([^\$\w\d])WwwwwW([^\w\d])/$1atan2$2/g;
s/([^\$\w\d])Wwwwww([^\w\d])/$1alarm$2/g;
Acme-WTF
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
Activator
view release on metacpan or search on metacpan
bin/activator.pl view on Meta::CPAN
OUTPUT_PATH => $config->{apache2}->{ServerRoot},
}
);
$tt->process( $fq, $config, $out ) || Activator::Log->logdie( $tt->error()."\n");
# TODO: use some smart hueristics to properly chmod that which
# should be executable
#
#if( $out =~ m@/s?bin/|/init.d/@ ) {
# chmod 0755, $config->{apache2}->{ServerRoot}.'/'.$out
#}
}
# copy the default project config for a catalyst app to the correct
# place, setting project_name, project_alias, domain_name.
Ado
view release on metacpan or search on metacpan
lib/Ado/Build.pm view on Meta::CPAN
my $ro = oct('0400');
my $rw = oct('0600');
for my $asset (
qw(ado.conf plugins/routes.conf plugins/auth.conf plugins/markdown_renderer.conf))
{
_chmod($ro, catfile($etc_dir, $asset));
}
_chmod($rw, catfile($etc_dir, 'ado.sqlite'));
#Make sure *log files are existing and empty
_empty_log_files($log_dir);
for my $asset (qw(development production)) {
_chmod($rw, catfile($log_dir, "$asset.log"));
}
return;
}
sub _chmod {
my ($mode, $file) = @_;
return chmod($mode, $file)
|| Carp::carp("Could not change mode for $file: $!");
}
sub ACTION_perltidy {
my $self = shift;
( run in 0.519 second using v1.01-cache-2.11-cpan-496ff517765 )