view release on metacpan or  search on metacpan

Auth/RCS/Makefile.old,v  view on Meta::CPAN

# --- MakeMaker tools_other section:

SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f

Auth/RCS/Makefile.old,v  view on Meta::CPAN

POD2MAN_EXE = /usr/local/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 Auth.pm
	@@$(POD2MAN) \
	Auth.pm \
	$(INST_MAN3DIR)/Apache::AuthenSecurID::Auth.$(MAN3EXT)

 view release on metacpan or  search on metacpan

t/session/005internal_redirect.t  view on Meta::CPAN

#!/usr/bin/perl

print "Location: /TestSession__001session_generation?SESSION\n\n";
EOF
close F;
chmod 0755, "t/htdocs/bin/x.pl";

my $got=GET_BODY( "/bin/x.pl" );
ok t_cmp( $got, qr/^SESSION=.+/m,  ), "without session";

$got=~m/^SESSION=(.+)/;

 view release on metacpan or  search on metacpan

set_pureperl.PL  view on Meta::CPAN

my $fh;
open ($fh,$dispatch) || die "cannot read Dispatch.pm: $!";
my $code=join('',<$fh>);
close $fh;

chmod(0755,$dispatch);

$code =~ s{(\$Apache::Dispatch::PUREPERL\=)\d}{$1$pureperl};

open ($fh,">", $dispatch) || die "cannot write to Dispatch.pm: $!";
print $fh $code;

 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

FileManager.pm  view on Meta::CPAN

Make sure the web server has read, write, and execute access access to the
directory you want to manage files in. Typically you are going to want to
run the following commands before you begin.

chown -R nobody /web/xyz/htdocs
chmod -R 755 /web/xyz/htdocs

The extract functionality only works with *.tar.gz and *.zip files.

=head1 RSYNC FEATURE

FileManager.pm  view on Meta::CPAN

     (will fail but will make known_hosts file)
   - log out from user nobody back to root user
   - dev_server> cd /usr/local/apache/nobody/.ssh
   - dev_server> scp id_dsa.pub production_server:/usr/local/apache/nobody/.ssh/authorized_keys
   - dev_server> chown -R nobody.nobody /usr/local/apache/nobody
   - dev_server> chmod -R 700 /usr/local/apache/nobody

 #7 log back into the production server

 #8 become root

 #9 Do the following commands:
   - production_server> chown -R nobody.nobody /usr/local/apache/nobody
   - production_server> chmod -R 700 /usr/local/apache/nobody

You also need to specify the production server in the development server's
web conf file. So your conf file should look like this:

 <Location /FileManager>

 view release on metacpan or  search on metacpan

t/TEST.PL  view on Meta::CPAN

    $dbh->do( $tables{$table} );
  }
}
$dbh->disconnect;

chmod 0666 => "$pkit_root/dbfile";

unless ($root_found) {
  push( @ARGV, '--documentroot' => $pkit_root );
  chmod 0777 => catfile( $pkit_root, 'View', 'pkit_cache' );
}

Apache::TestRunPerl->new->run(@ARGV);
1;

 view release on metacpan or  search on metacpan

t/002.t  view on Meta::CPAN

Apache::TestRequest::user_agent(reset => 1,
				requests_redirectable => 0);

my @functions=qw/ -X abs accept alarm atan2 bind binmode bless caller
                  chdir chmod chomp chop chown chr chroot close closedir
                  connect continue cos crypt dbmclose dbmopen defined
                  delete die do dump each endgrent endhostent endnetent
                  endprotoent endpwent endservent eof eval exec exists
                  exit exp fcntl fileno flock fork format formline getc
                  getgrent getgrgid getgrnam gethostbyaddr gethostbyname

 view release on metacpan or  search on metacpan

lib/Apache2/WebApp/Helper/Project.pm  view on Meta::CPAN

    mkpath("$doc_root/tmp",                  $verbose);
    mkpath("$doc_root/tmp/cache",            $verbose);
    mkpath("$doc_root/tmp/cache/templates",  $verbose);
    mkpath("$doc_root/tmp/uploads",          $verbose);

    # File::Path ignores default 0777, use chmod instead
    chmod 0777, "$doc_root/logs";
    chmod 0777, "$doc_root/tmp";
    chmod 0777, "$doc_root/tmp/cache";
    chmod 0777, "$doc_root/tmp/cache/templates";
    chmod 0777, "$doc_root/tmp/uploads";

    open (FILE1, ">$doc_root/logs/access_log"   ) or $self->error("Cannot open file: $!"); close(FILE1);
    open (FILE2, ">$doc_root/logs/error_log"    ) or $self->error("Cannot open file: $!"); close(FILE2);
    open (FILE3, ">$doc_root/htdocs/favicon.ico") or $self->error("Cannot open file: $!"); close(FILE3);

lib/Apache2/WebApp/Helper/Project.pm  view on Meta::CPAN

    $self->write_file("$source/index_html.tt",  "$doc_root/htdocs/index.html"      );
    $self->write_file("$source/projrc.tt",      "$doc_root/.projrc"                );
    $self->write_file("$source/template.tt",    "$doc_root/templates/example.tt"   );
    $self->write_file("$source/error.tt",       "$doc_root/templates/error.tt"     );

    chmod 0666, "$doc_root/conf/htpasswd";

    print "\033[33mProject '$project' created successfully\033[0m\n";
    exit;
}

 view release on metacpan or  search on metacpan

bin/loghack  view on Meta::CPAN

      { # record results
        want_dir("$outpath.loaded");
        my $tag = ($ENV{HOSTNAME} || '') . '.' . $$;
        open($ch, '>', "$checkfile.$tag") or
          die "cannot write '$checkfile.$tag' $!";
        # TODO chmod
        rename("$checkfile.$tag", $checkfile) or
          die "cannot make $checkfile $!";
      }

      # TODO a replayable pipe would be nice

bin/loghack  view on Meta::CPAN

      print $out join("\t", @$v), "\n";
    }

    print $ch "$linecount\n";
    close($ch) or die "write '$checkfile' failed $!";
    # TODO race checks/chmod

  }
  wait(); # XXX need this?
  return(@loaded);
}

 view release on metacpan or  search on metacpan

script/acme-cpanauthors  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

INSTALL  view on Meta::CPAN

Step 1: Install cpanm

  mkdir ~/bin
  cd ~/bin
  curl -LO http://xrl.us/cpanm
  chmod +x cpanm

Step 2: Install local::lib and setup your environment

  ~/bin/cpanm --local-lib=~/perl5 local::lib
  eval $(perl -I ~/perl5/lib/perl5/ -Mlocal::lib)

 view release on metacpan or  search on metacpan

doc/bacteria_2_3.md  view on Meta::CPAN

## lambda: download

* Reference genome

    * Strain: Escherichia virus Lambda (viruses)
    * Taxid: [10710](https://www.ncbi.nlm.nih.gov/Taxonomy/Browser/wwwtax.cgi?mode=Info&id=10710&lvl=3&lin=f&keep=1&srchmode=1&unlock)
    * RefSeq assembly accession:
      [GCF_000840245.1](ftp://ftp.ncbi.nlm.nih.gov/genomes/all/GCF/000/840/245/GCF_000840245.1_ViralProj14204/GCF_000840245.1_ViralProj14204_assembly_report.txt)
    * Proportion of paralogs (> 1000 bp): 0.0

```bash

doc/bacteria_2_3.md  view on Meta::CPAN

## Lpne: download

* Reference genome

    * Strain: Legionella pneumophila subsp. pneumophila str. Philadelphia 1
    * Taxid: [272624](https://www.ncbi.nlm.nih.gov/Taxonomy/Browser/wwwtax.cgi?mode=Info&id=272624&lvl=3&lin=f&keep=1&srchmode=1&unlock)
    * RefSeq assembly accession:
      [GCF_000008485.1](ftp://ftp.ncbi.nlm.nih.gov/genomes/all/GCF/000/008/485/GCF_000008485.1_ASM848v1/GCF_000008485.1_ASM848v1_assembly_report.txt)
    * Proportion of paralogs (> 1000 bp): 0.0264

```bash

doc/bacteria_2_3.md  view on Meta::CPAN

## Cjej: download

* Reference genome

    * Strain: Campylobacter jejuni subsp. jejuni NCTC 11168 = ATCC 700819
    * Taxid: [192222](https://www.ncbi.nlm.nih.gov/Taxonomy/Browser/wwwtax.cgi?mode=Info&id=192222&lvl=3&lin=f&keep=1&srchmode=1&unlock)
    * RefSeq assembly accession:
      [GCF_000009085.1](ftp://ftp.ncbi.nlm.nih.gov/genomes/all/GCF/000/009/085/GCF_000009085.1_ASM908v1/GCF_000009085.1_ASM908v1_assembly_report.txt)
    * Proportion of paralogs (> 1000 bp): 0.0196

```bash

 view release on metacpan or  search on metacpan

maint/Makefile.include  view on Meta::CPAN

pack: bcssh
bcssh: bin/bcssh $(TO_INST_PM) maint/pack
	$(PERL) maint/pack bin/bcssh > bcssh
	chmod +x bcssh
release-pack: bcssh
	maint/update-build-branch $(VERSION) build bcssh

 view release on metacpan or  search on metacpan

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|

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

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

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

bin/appbasis  view on Meta::CPAN

path($appname)->spew($boilerplate);
if ( -f $appname ) {

    # being lazy, not reading in the current value and updating and writing back
    system("chmod a+x '$appname'");
    print "app $appname created.\n";
}
else {
    print "failed to create $appname\n";
    exit 1;

 view release on metacpan or  search on metacpan

t/app-boolfindgrep.t  view on Meta::CPAN

@ENV{qw[TMDIR TMP_DIR]},
    q(/tmp);

$tmpdir = catdir( $tmpdir, $basename );
if ( -d $tmpdir ) {
    chmod oct q(0770), $tmpdir;
    remove_tree $tmpdir or die $!;
}
mkdir $tmpdir, oct q(0770) or die $!;

my @tmpfile;

 view release on metacpan or  search on metacpan

bin/bootstrap-perl  view on Meta::CPAN

if (not -e $bin_mycpan) {
  open (my $MYCPAN, '>', $bin_mycpan) or die "Can not create $bin_mycpan";
  print $MYCPAN qq{#! /bin/bash\n};
  print $MYCPAN qq{$CPAN -j $CFG "\$\@"\n};
  close $MYCPAN;
  print_and_system qq!chmod +x $bin_mycpan!;
}

print $USER "# PERL:     $PERL\n";
print $USER "# CPAN:     $CPAN\n";
print $USER "# MYCPAN:   $bin_mycpan\n";

bin/bootstrap-perl  view on Meta::CPAN

        # force a CPAN.pm with all features we need, assume old-school CPAN.pm
        print_and_system qq{if [ -L $bin_cpan -o ! -e $bin_cpan ] ; then echo Why?: /bin/rm -f $bin_cpan ; echo "force install CPAN" | $PERL -MCPAN -e shell ; fi};

        # once upon a time the cpan exe missed the executable bit - set it to be sure
        print_and_system qq!chmod +x $CPAN!;
        print_and_system qq!chmod +x $bin_cpan!;

        print $USER "*** INSTALL cpan dependencies\n";

        # install extended cpan toolchain; contains some "force" where we know they are really required
        install_cpan_module($PERL, $bin_cpan, $CFG, NO_REINSTALL, FORCE, "CPAN::DistnameInfo");

 view release on metacpan or  search on metacpan

t/lib/TestAppBuild.pm  view on Meta::CPAN

    File::Path::rmtree( 'unpack' );
    File::Path::mkpath( 't/test_install' );

    open my $fh, '>', 't/test_install/is_x';
    return if -x 't/test_install/is_x';
    chmod 0777, 't/test_install/is_x';
    return unless -x 't/test_install/is_x';
    $support_executable_bit = 1;
}

sub _run {

 view release on metacpan or  search on metacpan

lib/App/CPANtoRPM.pm  view on Meta::CPAN

  eof { puts "Success" }
}
EOF

   $out->close();
   chmod 0755,$file;

   open(IN,"'$file' |");
   my @out = <IN>;
   close(IN);
   unlink $file;

lib/App/CPANtoRPM.pm  view on Meta::CPAN

%prep

rm -rf %{_builddir}/<name>-%{version}
%setup -D -n <name>-<version>
chmod -R u+w %{_builddir}/<name>-%{version}

if [ -f pm_to_blib ]; then rm -f pm_to_blib; fi

%build

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

3. Extract the App-CamelPKI archive and create your own app_camelpki.yml (a sample can be found 'app_camelpki.yml.sample').

3. Key Ceremony - Preparing the application
	A good idea here is to make whole files only readable by the user who executes apache.go 
	into CamelPKI root directory and type :
	#chmod -R u+rw,g-rwx,o-rwx *
	It is also important to fix the right for the directories containing the different keys (as defined in app_camelpki.yml).
	
	Key ceremony is an important task to do. You have to generate your own
	Certificates and Private Keys for the CA. A script has been coded to do this easily :
	$ perl Build.PL

 view release on metacpan or  search on metacpan

lib/App/ChangeShebang.pm  view on Meta::CPAN

    $content =~ s/$remove//;

    my $mode = (stat $file)[2];

    my ($tmp_fh, $tmp_name) = File::Temp::tempfile UNLINK => 0, DIR => File::Basename::dirname($file);
    chmod $mode, $tmp_name;
    print {$tmp_fh} <<'...';
#!/bin/sh
exec "$(dirname "$0")"/perl -x "$0" "$@"
#!perl
...

 view release on metacpan or  search on metacpan

cheats.txt  view on Meta::CPAN

#############################################################

# Connect to phone and fix file permissions. (oneplus)
adb shell
su
chmod 777 /data/data

#############################################################
## Android
#############################################################

cheats.txt  view on Meta::CPAN

# Skip the first line on the file
cat file | tail -n +2


#############################################################
## Linux Commands - chmod
#############################################################

# Set suid for a file
sudo chmod +s file

# Change permission of only the group
chmod g+w file


#############################################################
## Linux Commands - chown
#############################################################

cheats.txt  view on Meta::CPAN

find . -name "*.h" -printf '%h\n'
find . -name "*.h" -exec dirname {} ';'
find . -name "*.h" -exec dirname {} \;

# Change permissions of all files / folders.
find . -type f -exec chmod 664 {} ';'
find . -type d -exec chmod 775 {} ';'

# Using a variable to define the find string.
n="-name *.pm";   find . $n     # Works.
n="-name '*.pm'"; find . $n     # Looks correct, but does NOT work!

cheats.txt  view on Meta::CPAN

#############################################################
## Linux Commands - grep
#############################################################

# Find what is setting the sticky bit to /tmp folder upon machine reboot
grep -r chmod /etc/* 2>/dev/null | NOT "chmod (?:0?(?:-[f]\s+)?\d{3}|[aguo]*[+-][rwxs]+)\b" '^Binary' | add_color chmod
grep -r '/tmp' /etc/* 2>/dev/null | NOT '^Binary' | add_color tmp

# Return matching file name only
grep --color "trace config off"  * -l

cheats.txt  view on Meta::CPAN

# Show if sticky bit is set on temp directory
[ -k /tmp ] && echo t

# Set sticky bit
chmod +t /tmp

# Remove sticky bit
chmod -t /tmp


#############################################################
## Linux Firewall
#############################################################

cheats.txt  view on Meta::CPAN

mkdir /media/fasthdd
dd if=/dev/zero of=/media/fasthdd/swapfile.img bs=512 count=1M
#
# Turn that swap file into a filesystem !?
mkswap /media/fasthdd/swapfile.img
chmod 600 /media/fasthdd/swapfile.img
#
# Add this line to /etc/fstab to be able to use the swap at startup
/media/fasthdd/swapfile.img swap swap sw 0 0
#
# Activate the swap file

cheats.txt  view on Meta::CPAN

# Additional folder preparation (module-starter)
mv App-Pod/* .
rmdir App-Pod
mv ignore.txt .gitignore
echo "*.swp" >> .gitignore
chmod +x Build.PL
# Remove MYMETA.* and META.*
#
# Prepend to Build.PL
"#!/bin/env perl
"

cheats.txt  view on Meta::CPAN

unzip chromedriver*.zip
#
# Move it:
sudo mv chromedriver /usr/bin/chromedriver
sudo chown root:root /usr/bin/chromedriver
sudo chmod +x /usr/bin/chromedriver
#
# Step 4 – Download Required Jar Files:


# Create selenium service

 view release on metacpan or  search on metacpan

bin_PL/_build_docs  view on Meta::CPAN

    next if($source =~ m/\.x$/);

    print "Generating: $source",$/;

    if(-f $dest) {
        chmod(0777, $dest) || die "Could not chmod $dest for removing: $!";
    }

    open(my $sfh, '<', $source) || die "Could not open $source for reading: $!";
    open(my $dfh, '>', $dest  ) || die "Could not open $dest for writing: $!";
    print $dfh $_ while(<$sfh>);

bin_PL/_build_docs  view on Meta::CPAN

        print $dfh $pod;
    }

    close($dfh);

    chmod(0555, $dest) || die "Could not chmod $dest: $!";
}

 view release on metacpan or  search on metacpan

build/build.PL  view on Meta::CPAN

close $out;

# Cleanup, make our fatpacked binary executable
unlink "$baseDir/cmddirs";
rename "$baseDir/cmddirs.tmp", "$baseDir/cmddirs";
chmod 0755, "$baseDir/cmddirs";

END { unlink "$baseDir/cmddirs.tmp" }

 view release on metacpan or  search on metacpan

t/cme-command.t  view on Meta::CPAN

foreach my $test ( @script_tests) {
    subtest $test->{label} => sub {
        $conf_file->spew_utf8(@orig);
        my $script = $wr_dir->child('my-script'.$i++.'.cme');
        $script->spew_utf8( map { "$_\n"} @{$test->{script}});
        $script->chmod("0755") if $test->{exec_mode};

        my $cmd = [
            run => $script->stringify,
            '-root-dir' => $wr_dir->stringify,
            @{$test->{args} // []}

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    You can also choose to download git-codeowners as a self-contained
    executable:

        curl -OL https://raw.githubusercontent.com/chazmcgarvey/git-codeowners/solo/git-codeowners
        chmod +x git-codeowners

    To hack on the code, clone the repo instead:

        git clone https://github.com/chazmcgarvey/git-codeowners.git
        cd git-codeowners

 view release on metacpan or  search on metacpan

lib/App/Codit/Plugins/SearchReplace.pm  view on Meta::CPAN

	my $searchterm = '';
	my $replaceterm = '';
	my $casesensitive = '-case';
	my $useregex = '-exact';
	my $searchmode = 'Search in current document';

	$self->{CASE} = \$casesensitive;
	$self->{CURRENT} = undef;
	$self->{LASTRESULTS} = [];
	$self->{MODE} = \$searchmode;
	$self->{OFFSET} = {};
	$self->{REPLACE} = \$replaceterm;
	$self->{REPLACED} = 0;
	$self->{REGEX} = \$useregex;
	$self->{SEARCH} = \$searchterm;

lib/App/Codit/Plugins/SearchReplace.pm  view on Meta::CPAN

		-anchor => 'w',
	)->pack(@padding, -fill => 'x');
	my $mb = $sb->Menubutton(
#		-relief => 'raised',
		-anchor => 'w',
		-textvariable => \$searchmode,
	)->pack(@padding, -fill => 'x');
	my @menu = ();
	for ($srchcur, $srchall, $srchprj, $srchres) {
		my $mode = $_;
		push @menu, [command => $mode,
			-command => sub { $searchmode = $mode },
		];
	}
	$mb->configure(-menu => $mb->Menu(
		-menuitems => \@menu,
	));

 view release on metacpan or  search on metacpan

lib/App/adminguide/cvs.pod  view on Meta::CPAN

than creating another version in /usr/local.

Somewhere else I read that I need to set the setgid bit on the
cvs binary.

  chmod 2755 /usr/bin/cvs

=head2 Users and Groups

We use NIS, so I verified that we have both the cvs user and group
defined.

lib/App/adminguide/cvs.pod  view on Meta::CPAN

  cd /usr/mycompany
  mkdir cvs
  chown cvs cvs
  chgrp cvs cvs
  chmod 775 cvs
  chmod g+s cvs

We use Bash and Korn shell, so I added the following lines to
"/etc/profile" so that the CVSROOT variable is available to all
users.

 view release on metacpan or  search on metacpan

lib/App/Dest.pm  view on Meta::CPAN

positive value if and only if the deploy action worked.

Since your local CLI shell probably doesn't know how to execute SQL files
natively, you'll likely need to create a C<dest.wrap> file.

    touch db/dest.wrap && chmod u+x db/dest.wrap && vi db/dest.wrap

This file if it exists will get executed instead of the deploy, verify, and
revert files, and it will be passed the action file being executed.

=head2 Status and Deploying

 view release on metacpan or  search on metacpan

fatpack.sh  view on Meta::CPAN

fatpack tree $(cat packlists)
rm scripts/dex </dev/null || echo "No packed dex present"

# There's warnings here about Class::XSAccessor from Moo, but this is fine.  It'll fall back to pure perl code when that's not installed to the local perl
fatpack file scripts.bare/dex > scripts/dex
chmod a+rx-w scripts/dex

rm -rf fatpacker.trace packlists fatlib