Explain internal errors in debug mode

1 files changed, 4 insertions, 1 deletions

diff --git a/urpmf b/urpmf
index 2dbe7636..99a6e3d9 100755
--- a/urpmf
+++ b/urpmf
@@ -131,7 +131,10 @@ $callback .= '
 }';
 $urpm->{error}(N("callback is:\n%s\n", $callback)) if our $debug;
 $callback = eval $callback;
-$@ and usage;
+if ($@) {
+    $debug and warn "Internal error: $@\n";
+    usage;
+}
 
 if ($env) {
     print STDERR N("using specific environment on %s\n", $env);