|
|
@@ -1,5 +1,6 @@
|
|
|
package Dpkg::ErrorHandling;
|
|
|
|
|
|
+use Dpkg;
|
|
|
use Dpkg::Gettext;
|
|
|
|
|
|
use base qw(Exporter);
|
|
|
@@ -8,7 +9,6 @@ our @EXPORT_OK = qw( failure syserr error internerr warning
|
|
|
|
|
|
our $warnable_error = 1;
|
|
|
our $quiet_warnings = 0;
|
|
|
-our $progname = "unknown";
|
|
|
|
|
|
sub failure { die sprintf(_g("%s: failure: %s"), $progname, $_[0])."\n"; }
|
|
|
sub syserr { die sprintf(_g("%s: failure: %s: %s"), $progname, $_[0], $!)."\n"; }
|