diff options
Diffstat (limited to 'scripts/Dpkg')
| -rw-r--r-- | scripts/Dpkg/Deps.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/scripts/Dpkg/Deps.pm b/scripts/Dpkg/Deps.pm index 33d44112f..e37e0392a 100644 --- a/scripts/Dpkg/Deps.pm +++ b/scripts/Dpkg/Deps.pm @@ -58,10 +58,11 @@ our @EXPORT = qw( deps_compare ); +use Carp; use Exporter qw(import); use Dpkg::Version; -use Dpkg::Arch qw(get_host_arch get_build_arch); +use Dpkg::Arch qw(get_host_arch get_build_arch debarch_to_debtuple); use Dpkg::BuildProfiles qw(get_build_profiles); use Dpkg::ErrorHandling; use Dpkg::Gettext; @@ -250,6 +251,12 @@ working with dependency fields from F<debian/tests/control>. sub deps_parse { my ($dep_line, %options) = @_; + # Validate arguments. + croak "invalid host_arch $options{host_arch}" + if defined $options{host_arch} and not defined debarch_to_debtuple($options{host_arch}); + croak "invalid biuild_arch $options{build_arch}" + if defined $options{build_arch} and not defined debarch_to_debtuple($options{build_arch}); + $options{use_arch} //= 1; $options{reduce_arch} //= 0; $options{host_arch} //= get_host_arch(); |