Dpkg/ErrorHandling.pm: Use Dpkg module instead of defining $progname

diff --git a/ChangeLog b/ChangeLog
index 95e4fd1b53fb4fe4a600f2d7e04dd1d18adbd3a1..cb11987c02632eb94d455ab178ef2aabcf68d297 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-10  Guillem Jover  <guillem@debian.org>
+
+       * scripts/Dpkg/ErrorHandling.pm: Use Dpkg.
+       ($progname): Do not set nor declare it.
+
 2007-10-10  Guillem Jover  <guillem@debian.org>
 
        * scripts/Dpkg/ErrorHandling.pm ($warnable_error): Set to 1 to match

diff --git a/scripts/Dpkg/ErrorHandling.pm b/scripts/Dpkg/ErrorHandling.pm
index 3473ea45acfdd2dbb7b82f2253762f4e89bb9cf8..8601eb511f2812563300c94b608da1d9ec641e35 100644 (file)
--- a/scripts/Dpkg/ErrorHandling.pm
+++ b/scripts/Dpkg/ErrorHandling.pm
@@ -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"; }