summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/commands7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/commands b/perl-install/commands
index c37a180c7..adbf7f594 100755
--- a/perl-install/commands
+++ b/perl-install/commands
@@ -9,7 +9,10 @@ use commands;
my $progname = basename($0);
-# hack as some functions are defined by perl... so chmod -> chmod_
-&{$commands::{$progname} || $commands::{$progname . "_"} || \&err}(@ARGV), exit 0;
+eval {
+ # hack as some functions are defined by perl... so chmod -> chmod_
+ &{$commands::{$progname} || $commands::{$progname . "_"} || \&err}(@ARGV), exit 0;
+};
+die formatError($@) . "\n";
sub err { die "$0: unknown program (unimplemented)\n" }