summaryrefslogtreecommitdiff
path: root/Debian/Debhelper/Dh_Lib.pm
diff options
context:
space:
mode:
authorjoeyh <joeyh>2007-05-28 02:29:34 +0000
committerjoeyh <joeyh>2007-05-28 02:29:34 +0000
commit2e7c77052024eb60c4a61b7098b3b3f965e25b95 (patch)
tree5cbe7dca5a244174e8d3bd5d4dc61b8858ae328b /Debian/Debhelper/Dh_Lib.pm
parent6b837cdf5e02beefe506018b46b49a41f19ea494 (diff)
r2003: * Add some checks for attempts to act on packages not defined in the control
file.
Diffstat (limited to 'Debian/Debhelper/Dh_Lib.pm')
-rw-r--r--Debian/Debhelper/Dh_Lib.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index c72e559f..80f56387 100644
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -656,6 +656,10 @@ sub getpackages {
sub package_arch {
my $package=shift;
+ if (! exists $package_arches{$package}) {
+ warning "package $package is not in control info";
+ return buildarch();
+ }
return $package_arches{$package} eq 'all' ? "all" : buildarch();
}
@@ -663,6 +667,10 @@ sub package_arch {
sub is_udeb {
my $package=shift;
+ if (! exists $package_types{$package}) {
+ warning "package $package is not in control info";
+ return 0;
+ }
return $package_types{$package} eq 'udeb';
}