Просмотр исходного кода

Fix some “use Dpkg::ErrorHandling qw(…)” calls

* scripts/Dpkg/Changelog.pm, scripts/dpkg-buildpackage.pl,
scripts/dpkg-genchanges.pl, scripts/dpkg-gencontrol.pl,
scripts/dpkg-source.pl: Also import the default exported functions
of Dpkg::ErrorHandling and not only the unusual ones.
Raphael Hertzog лет назад: 17
Родитель
Сommit
2ab51aab67

+ 7 - 0
ChangeLog

@@ -1,3 +1,10 @@
+2008-12-08  Raphael Hertzog  <hertzog@debian.org>
+
+	* scripts/Dpkg/Changelog.pm, scripts/dpkg-buildpackage.pl,
+	scripts/dpkg-genchanges.pl, scripts/dpkg-gencontrol.pl,
+	scripts/dpkg-source.pl: Also import the default exported functions
+	of Dpkg::ErrorHandling and not only the unusual ones.
+
 2008-12-08  Guillem Jover  <guillem@debian.org>
 
 	* dpkg-deb/build.c (do_build): Mark strings for translation.

+ 1 - 1
scripts/Dpkg/Changelog.pm

@@ -39,7 +39,7 @@ use English;
 
 use Dpkg;
 use Dpkg::Gettext;
-use Dpkg::ErrorHandling qw(report);
+use Dpkg::ErrorHandling qw(:DEFAULT report);
 use Dpkg::Cdata;
 use Dpkg::Fields;
 

+ 1 - 1
scripts/dpkg-buildpackage.pl

@@ -8,7 +8,7 @@ use File::Basename;
 
 use Dpkg;
 use Dpkg::Gettext;
-use Dpkg::ErrorHandling qw($warnable_error);
+use Dpkg::ErrorHandling qw(:DEFAULT $warnable_error);
 use Dpkg::BuildOptions;
 use Dpkg::Compression;
 use Dpkg::Version qw(check_version);

+ 1 - 1
scripts/dpkg-genchanges.pl

@@ -9,7 +9,7 @@ use English;
 use Dpkg;
 use Dpkg::Gettext;
 use Dpkg::Checksums;
-use Dpkg::ErrorHandling qw(unknown);
+use Dpkg::ErrorHandling qw(:DEFAULT unknown);
 use Dpkg::Arch qw(get_host_arch debarch_eq debarch_is);
 use Dpkg::Fields qw(:list capit);
 use Dpkg::Compression;

+ 1 - 1
scripts/dpkg-gencontrol.pl

@@ -7,7 +7,7 @@ use POSIX;
 use POSIX qw(:errno_h);
 use Dpkg;
 use Dpkg::Gettext;
-use Dpkg::ErrorHandling qw(unknown);
+use Dpkg::ErrorHandling qw(:DEFAULT unknown);
 use Dpkg::Arch qw(get_host_arch debarch_eq debarch_is);
 use Dpkg::Deps qw(@pkg_dep_fields %dep_field_type);
 use Dpkg::Fields qw(:list capit);

+ 1 - 1
scripts/dpkg-source.pl

@@ -6,7 +6,7 @@ use warnings;
 
 use Dpkg;
 use Dpkg::Gettext;
-use Dpkg::ErrorHandling qw(unknown $quiet_warnings);
+use Dpkg::ErrorHandling qw(:DEFAULT unknown $quiet_warnings);
 use Dpkg::Arch qw(debarch_eq);
 use Dpkg::Deps qw(@src_dep_fields %dep_field_type);
 use Dpkg::Fields qw(:list capit);