diff options
| author | Joey Hess <joey@kodama.kitenet.net> | 2008-10-21 14:00:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kodama.kitenet.net> | 2008-10-21 14:00:09 -0400 |
| commit | 3c458775d1180d034217c4b44e3871d8b87bf382 (patch) | |
| tree | 344bd8b90c67ed54be8fb26dceb9ae4636241879 /Debian/Debhelper/Dh_Lib.pm | |
| parent | 4839c4003b54b6f030e5ea58db5b591dc1088080 (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.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm index 6be25f9d..82efc5be 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. |