Permalink
Browse files

p-init: docmd simplification, pmq: /usr/local/bin/perl

  • Loading branch information...
1 parent a37115d commit 42094b4e48f2326a63483b9dcd22d3edc80ea26d Reini Urban committed Jun 11, 2012
Showing with 14 additions and 10 deletions.
  1. +12 −8 p-init
  2. +2 −2 pmq
View
20 p-init
@@ -11,31 +11,35 @@ exp=~/.cpan/CPAN/nosqlite.pm
jpan="$p -S cpan -j $exp"
cpan="$p -S cpan"
+function docmd {
+ echo $*
+ $*
+}
+
# DBI still broken, Do not use CPAN::SQLite with asan
if [[ $p =~ -asan ]]; then
echo asan special
cpan="$jpan"
else
echo bootstrapping CPAN::SQLite
# if all the deps would be correct it would be a better world
- echo $jpan YAML DBI DBD::SQLite File::Which CPAN::SQLite
- $jpan YAML DBI DBD::SQLite File::Which CPAN::SQLite
+ docmd $jpan YAML DBI DBD::SQLite File::Which CPAN::SQLite
# now we should have a working CPAN::SQLite and faster startup
fi
echo bootstrapping Bundle::CPANReporter2
-echo $cpan Params::Util Bundle::CPANReporter2
-$cpan Params::Util Bundle::CPANReporter2
+docmd $cpan Params::Util Bundle::CPANReporter2
-echo $cpan B::Flags Opcodes Math::Round Params::Classify '$(cat ~/Perl/B-C/t/top100)'
-$cpan B::Flags Opcodes Math::Round Params::Classify $(cat ~/Perl/B-C/t/top100)
+docmd $cpan B::Flags Opcodes Math::Round Params::Classify
+echo $cpan '$(cat ~/Perl/B-C/t/top100)'
+$cpan $(cat ~/Perl/B-C/t/top100)
echo "more? (or Ctrl-C)"
read more
# Class::MethodMaker rm SIGNATURE
-$cpan Bundle::CygwinVendor YAML::XS DBIx::Class
+docmd $cpan Inline Bundle::CygwinVendor YAML::XS DBIx::Class
# missing Kensho deps
-$cpan SQL::Abstract Module::Find Mouse MouseX::Types
+docmd $cpan SQL::Abstract Module::Find Mouse MouseX::Types
# Task::Kensho assumes there is only one archlib per perl, do it manually
perl -lne '/=item L<(.+?)[\|>]/ and print $1' /usr/local/lib/perl5/site_perl/5.14.2/Task/Kensho.pm \
| xargs $cpan
View
4 pmq
@@ -1,6 +1,6 @@
-#!/usr/bin/env perl -w
+#!/usr/local/bin/perl -w
-eval 'exec /usr/bin/env perl -w -S $0 ${1+"$@"}'
+eval 'exec /usr/local/bin/perl -w -S $0 ${1+"$@"}'
if 0; # not running under some shell
=pod

0 comments on commit 42094b4

Please sign in to comment.