From 4dc71f1553bb996cce45589c22f8330d341ed4bc Mon Sep 17 00:00:00 2001 From: Niels Thykier Date: Tue, 14 Nov 2017 21:50:30 +0000 Subject: dh_install: Fix --exclude of patterns Signed-off-by: Niels Thykier --- dh_install | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'dh_install') diff --git a/dh_install b/dh_install index 55eefe4d..05bcf761 100755 --- a/dh_install +++ b/dh_install @@ -207,7 +207,7 @@ foreach my $package (getpackages()) { }; foreach my $set (@install) { - my ($dest, @filelist); + my ($dest, @filelist, @patterns); if (@$set > 1) { $dest=pop @$set; @@ -217,7 +217,9 @@ foreach my $package (getpackages()) { # 2) exclude files matched by the pattern as people could have just # excluded a single file of a "dir/*"-pattern. # This line below filters entire patterns - foreach my $glob (grep { not excludefile($_) } @$set) { + @patterns = grep { not excludefile($_) } @{$set}; + next if not @patterns; + foreach my $glob (@patterns) { my @found = glob_expand(\@search_dirs, $glob_error_handler, $glob); push(@filelist, map { tr{/}{/}s; $_ } @found); } -- cgit v1.2.3