make error() throw a catchable error with die

exit cannot be caught with eval.. I used exit before because I thought it
was cute for erorr() to call warning(). Silly.

diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index 960f2721e6444a2fc619bb402a524de2d536ca35..c5b06f69fd546df1509da31b2fab697b1188dd48 100644 (file)
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -251,12 +251,11 @@ sub verbose_print {
        }
 }
 
-# Output an error message and exit.
+# Output an error message and die (can be caught).
 sub error {
        my $message=shift;
 
-       warning($message);
-       exit 1;
+       die basename($0).": $message\n";
 }
 
 # Output a warning.