summaryrefslogtreecommitdiff
path: root/Debian/Debhelper/Dh_Lib.pm
diff options
context:
space:
mode:
authorJoey Hess <joey@kodama.kitenet.net>2008-10-21 14:00:09 -0400
committerJoey Hess <joey@kodama.kitenet.net>2008-10-21 14:00:09 -0400
commit3c458775d1180d034217c4b44e3871d8b87bf382 (patch)
tree344bd8b90c67ed54be8fb26dceb9ae4636241879 /Debian/Debhelper/Dh_Lib.pm
parent4839c4003b54b6f030e5ea58db5b591dc1088080 (diff)
Allow individual debhelper programs to define their own special options by passing a hash to init(), which is later passed on the Getopt::Long. Closes: #370823
Diffstat (limited to 'Debian/Debhelper/Dh_Lib.pm')
-rw-r--r--Debian/Debhelper/Dh_Lib.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index 6be25f9..82efc5b 100644
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -20,6 +20,8 @@ use vars qw(@ISA @EXPORT %dh);
my $max_compat=7;
sub init {
+ my %params=@_;
+
# If DH_OPTIONS is set, prepend it @ARGV.
if (defined($ENV{DH_OPTIONS})) {
# Ignore leading/trailing whitespace.
@@ -42,7 +44,7 @@ sub init {
if ($parseopt) {
eval "use Debian::Debhelper::Dh_Getopt";
error($!) if $@;
- %dh=Debian::Debhelper::Dh_Getopt::parseopts();
+ Debian::Debhelper::Dh_Getopt::parseopts($params{options});
}
# Another way to set excludes.