|
|
@ -11,6 +11,7 @@ sub env ($$);
|
|
|
|
sub cd ($);
|
|
|
|
sub cd ($);
|
|
|
|
sub auto_complete ($);
|
|
|
|
sub auto_complete ($);
|
|
|
|
sub usage ($);
|
|
|
|
sub usage ($);
|
|
|
|
|
|
|
|
sub trim ($);
|
|
|
|
|
|
|
|
|
|
|
|
my (@make_cmds, @make_install_cmds);
|
|
|
|
my (@make_cmds, @make_install_cmds);
|
|
|
|
|
|
|
|
|
|
|
@ -272,10 +273,16 @@ sub shell ($@) {
|
|
|
|
|
|
|
|
|
|
|
|
unless ($dry_run) {
|
|
|
|
unless ($dry_run) {
|
|
|
|
system($cmd) == 0 or
|
|
|
|
system($cmd) == 0 or
|
|
|
|
die "failed to run command: $cmd\n";
|
|
|
|
die "failed to run command: ", trim($cmd), "\n";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sub trim ($) {
|
|
|
|
|
|
|
|
my $cmd = shift;
|
|
|
|
|
|
|
|
$cmd =~ s/\n.*/.../s;
|
|
|
|
|
|
|
|
$cmd;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
sub auto_complete ($) {
|
|
|
|
sub auto_complete ($) {
|
|
|
|
my $name = shift;
|
|
|
|
my $name = shift;
|
|
|
|
my @dirs = glob "$name-[0-9]*" or
|
|
|
|
my @dirs = glob "$name-[0-9]*" or
|
|
|
|