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.

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+$//;