From: Guillem Jover <guillem@debian.org>
Date: Wed, 10 Oct 2007 01:10:26 +0000 (+0300)
Subject: Dpkg/ErrorHandling.pm: Use Dpkg module instead of defining $progname
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d15b5133bb6dfc3e2af0aa44fdb6ed31f08f806b;p=dpkg

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

diff --git a/ChangeLog b/ChangeLog
index 95e4fd1b..cb11987c 100644
--- 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 3473ea45..8601eb51 100644
--- 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"; }