summaryrefslogtreecommitdiff
path: root/Debian/Debhelper/Dh_Lib.pm
diff options
context:
space:
mode:
authorjoey <joey>2001-01-25 02:04:03 +0000
committerjoey <joey>2001-01-25 02:04:03 +0000
commit8da1a397c64f933ae536be136aaab99f6105ab71 (patch)
tree6f571ebc1f37fce9e0040bd2c1394f48d78d3b2e /Debian/Debhelper/Dh_Lib.pm
parentf4f52f07ec3f5cebdd6d3bc6893f7025bad4d68f (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/Debhelper/Dh_Lib.pm')
-rw-r--r--Debian/Debhelper/Dh_Lib.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index 5373e80..4140642 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+$//;