Package: debhelper
Severity: wishlist
Tags: patch
Please make the information hold in package_arches available.
--- /usr/share/perl5/Debian/Debhelper/Dh_Lib.pm~ 2004-11-30
19:22:03.000000000 +0100
+++ /usr/share/perl5/Debian/Debhelper/Dh_Lib.pm 2005-02-15 12:33:16.160595944
+0100
@@ -13,8 +13,8 @@
@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 @@
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 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
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
