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

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

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