From 86e1b335e3da1d1321445b9f1728ac30bb097eb5 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 17 Oct 2005 16:00:27 +0000
Subject: Explain internal errors in debug mode

---
 urpmf | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'urpmf')

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);
-- 
cgit v1.2.1