From 94a81dafd52cb0c2e5b1f8d05a905832eaec8bb5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 15 Jan 2012 14:47:54 -0400 Subject: --without foo,bar now supported --- dh | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'dh') diff --git a/dh b/dh index 36130f84..4d4e31eb 100755 --- a/dh +++ b/dh @@ -55,7 +55,9 @@ the sequence addon interface. =item B<--without> I -The inverse of B<--with>, disables using the given addon. +The inverse of B<--with>, disables using the given addon. This option +can be repeated more than once, or multiple addons to disable can be +listed, separated by commas. =item B<--list>, B<-l> @@ -285,7 +287,8 @@ init(options => { }, "without=s" => sub { my ($option,$value)=@_; - @{$dh{WITH}} = grep { $_ ne $value } @{$dh{WITH}}; + my %without = map { $_ => 1 } split(",", $value); + @{$dh{WITH}} = grep { ! $without{$_} } @{$dh{WITH}}; }, "l" => \&list_addons, "list" => \&list_addons, -- cgit v1.2.3