diff options
| -rwxr-xr-x | perl-install/commands | 7 |
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" } |