summaryrefslogtreecommitdiff
path: root/Debian/Debhelper/Dh_Lib.pm
diff options
context:
space:
mode:
authorjoey <joey>2005-02-16 18:48:08 +0000
committerjoey <joey>2005-02-16 18:48:08 +0000
commite7104f4e8c2910cede371012a6d175e8649f2952 (patch)
tree0dbcf78d359fb6f201e30d9c0a22824bb702af2e /Debian/Debhelper/Dh_Lib.pm
parent6792c2a45f9a8fc6f5d8b5d98a0b868899382e1e (diff)
r1740: releasing version 4.2.31
Diffstat (limited to 'Debian/Debhelper/Dh_Lib.pm')
-rw-r--r--Debian/Debhelper/Dh_Lib.pm12
1 files changed, 9 insertions, 3 deletions
diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index c64f643..f013dee 100644
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -13,8 +13,8 @@ use vars qw(@ISA @EXPORT %dh);
@EXPORT=qw(&init &doit &complex_doit &verbose_print &error &warning &tmpdir
&pkgfile &pkgext &pkgfilename &isnative &autoscript &filearray
&filedoublearray &getpackages &basename &dirname &xargs %dh
- &compat &addsubstvar &delsubstvar &excludefile &is_udeb
- &udeb_filename);
+ &compat &addsubstvar &delsubstvar &excludefile &package_arch
+ &is_udeb &udeb_filename);
my $max_compat=4;
@@ -612,6 +612,12 @@ sub getpackages {
return @list;
}
+sub package_arch {
+ my $package=shift;
+
+ return $package_arches{$package} eq 'all' ? "all" : buildarch();
+}
+
sub is_udeb {
my $package=shift;
@@ -621,7 +627,7 @@ sub is_udeb {
sub udeb_filename {
my $package=shift;
- my $filearch=$package_arches{$package} eq 'all' ? "all" : buildarch();
+ my $filearch=package_arch($package);
isnative($package); # side effect
my $version=$dh{VERSION};
$version=~s/^[0-9]+://; # strip any epoch