diff options
author | joey <joey> | 2005-02-16 18:48:08 +0000 |
---|---|---|
committer | joey <joey> | 2005-02-16 18:48:08 +0000 |
commit | e7104f4e8c2910cede371012a6d175e8649f2952 (patch) | |
tree | 0dbcf78d359fb6f201e30d9c0a22824bb702af2e /Debian/Debhelper/Dh_Lib.pm | |
parent | 6792c2a45f9a8fc6f5d8b5d98a0b868899382e1e (diff) |
r1740: releasing version 4.2.31
Diffstat (limited to 'Debian/Debhelper/Dh_Lib.pm')
-rw-r--r-- | Debian/Debhelper/Dh_Lib.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm index c64f6433..f013dee1 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 |