From 236696dee6483561be64e1d4e6f8656d2b0fbe14 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 6 Mar 2009 18:07:52 -0500 Subject: dh_installchangelogs: Support -X to exclude automatic installation of specific upstream changelogs. Closes: #490937 --- dh_installchangelogs | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'dh_installchangelogs') diff --git a/dh_installchangelogs b/dh_installchangelogs index a5cce3f4..3749d523 100755 --- a/dh_installchangelogs +++ b/dh_installchangelogs @@ -11,7 +11,7 @@ use Debian::Debhelper::Dh_Lib; =head1 SYNOPSIS -B [S>] [B<-k>] [I] +B [S>] [B<-k>] [B<-X>I] [I] =head1 DESCRIPTION @@ -53,6 +53,11 @@ that to the original name of the changelog file. This can be useful if the upstream changelog has an unusual name, or if other documentation in the package refers to the changelog file. +=item B<-Xitem>, B<--exclude=item> + +Exclude upstream changelog files that contain "item" anywhere in their +filename from being installed. + =item I Install this file as the upstream changelog. @@ -69,7 +74,9 @@ if (! defined $upstream) { if (! isnative($dh{MAINPACKAGE}) && !compat(6)) { my @files=sort glob("*"); foreach my $name (qw{changelog changes changelog.txt changes.txt}) { - my @matches=grep { lc $_ eq $name && -s $_ } @files; + my @matches=grep { + lc $_ eq $name && -s $_ && ! excludefile($_) + } @files; if (@matches) { $upstream=shift @matches; last; -- cgit v1.2.3