package debhelper tags 521258 + patch thanks My Perl is atrocious, but this patch (generated from ‘git diff’ against the current public branch for ‘debhelper’) should show the intent of this report at least.
-- \ “I like my dental hygenist, I think she's very pretty; so when | `\ I go to have my teeth cleaned, while I'm in the waiting room I | _o__) eat an entire box of cookies.” —Steven Wright | Ben Finney <b...@benfinney.id.au>
diff --git a/dh_installchangelogs b/dh_installchangelogs
index 3749d52..1919e55 100755
--- a/dh_installchangelogs
+++ b/dh_installchangelogs
@@ -73,13 +73,16 @@ my $changelog_name="changelog.Debian";
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 $_ && ! excludefile($_)
- } @files;
- if (@matches) {
- $upstream=shift @matches;
- last;
+ foreach my $dir (qw{. doc docs}) {
+ foreach my $name
+ (qw{changelog changes changelog.txt changes.txt}) {
+ my @matches=grep {
+ lc $_ eq "$dir/$name" && -s $_ && ! excludefile($_)
+ } @files;
+ if (@matches) {
+ $upstream=shift @matches;
+ last;
+ }
}
}
}
signature.asc
Description: Digital signature
