diff options
author | joey <joey> | 2001-01-25 02:04:03 +0000 |
---|---|---|
committer | joey <joey> | 2001-01-25 02:04:03 +0000 |
commit | 8da1a397c64f933ae536be136aaab99f6105ab71 (patch) | |
tree | 6f571ebc1f37fce9e0040bd2c1394f48d78d3b2e /Debian | |
parent | f4f52f07ec3f5cebdd6d3bc6893f7025bad4d68f (diff) |
r410: * Added the ability to make debhelper read a different file than
debian/control as the control file. This is very useful for various and
sundry things, all Evil, most involving kernel packages.
Diffstat (limited to 'Debian')
-rw-r--r-- | Debian/Debhelper/Dh_Lib.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm index 5373e808..4140642b 100644 --- a/Debian/Debhelper/Dh_Lib.pm +++ b/Debian/Debhelper/Dh_Lib.pm @@ -383,6 +383,10 @@ sub filearray { } } +sub getcontrol { + return $ENV{DH_CONTROL} || 'debian/control'; +} + # Returns a list of packages in the control file. # Must pass "arch" or "indep" or "same" to specify arch-dependant or # -independant or same arch packages. If nothing is specified, returns all @@ -401,8 +405,8 @@ sub GetPackages { my $package=""; my $arch=""; my @list=(); - open (CONTROL,"<debian/control") || - error("cannot read debian/control: $!\n"); + open (CONTROL, getcontrol()) || + error("cannot read ".getcontrol().": $!\n"); while (<CONTROL>) { chomp; s/\s+$//; |