diff options
Diffstat (limited to 'scripts/Dpkg/ErrorHandling.pm')
| -rw-r--r-- | scripts/Dpkg/ErrorHandling.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/Dpkg/ErrorHandling.pm b/scripts/Dpkg/ErrorHandling.pm index 0584add61..939721020 100644 --- a/scripts/Dpkg/ErrorHandling.pm +++ b/scripts/Dpkg/ErrorHandling.pm @@ -18,7 +18,7 @@ use warnings; our $VERSION = '0.01'; -use Dpkg; +use Dpkg qw(); use Dpkg::Gettext; use base qw(Exporter); @@ -46,7 +46,7 @@ sub report(@) my ($type, $msg) = (shift, shift); $msg = sprintf($msg, @_) if (@_); - return "$progname: $type: $msg\n"; + return "$Dpkg::PROGNAME: $type: $msg\n"; } sub info($;@) @@ -102,7 +102,7 @@ sub usageerr(@) my ($msg) = (shift); $msg = sprintf($msg, @_) if (@_); - warn "$progname: $msg\n\n"; + warn "$Dpkg::PROGNAME: $msg\n\n"; # XXX: access to main namespace main::usage(); exit(2); |