fixed the error message length while ./configure fails.
This commit is contained in:
parent
099c040870
commit
a5ac948dfe
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue