From 4b62726560265020e5d44453e93e49e8f44aced0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 28 May 2010 01:27:31 -0400 Subject: [PATCH] dh_installchangelogs: Also look for changelog files in doc(s) subdirectories. Closes: #521258 --- debian/changelog | 2 ++ dh_installchangelogs | 22 ++++++++++++---------- 2 files changed, 14 insertions(+), 10 deletions(-) diff --git a/debian/changelog b/debian/changelog index 6892bae..5df9e2c 100644 --- a/debian/changelog +++ b/debian/changelog @@ -24,6 +24,8 @@ debhelper (7.9.1) UNRELEASED; urgency=low commands. (See #570039) * dh_installchangelogs: Support packages placing their changelog in a file with a name like HISTORY. Closes: #582749 + * dh_installchangelogs: Also look for changelog files in doc(s) + subdirectories. Closes: #521258 -- Joey Hess Mon, 17 May 2010 20:01:19 -0400 diff --git a/dh_installchangelogs b/dh_installchangelogs index 87ac11b..a6dcc68 100755 --- a/dh_installchangelogs +++ b/dh_installchangelogs @@ -19,8 +19,8 @@ dh_installchangelogs is a debhelper program that is responsible for installing changelogs into package build directories. An upstream changelog file may be specified as an option. If none is -specified, a few common filenames are tried. (In compatibility level 7 and -above.) +specified, it looks for files with names that seem likely to be changelogs. +(In compatibility level 7 and above.) If there is an upstream changelog file, it will be be installed as usr/share/doc/package/changelog in the package build directory. If the @@ -84,14 +84,16 @@ my $upstream=shift; 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 history history.txt}) { - my @matches=grep { - lc $_ eq $name && -s $_ && ! excludefile($_) - } @files; - if (@matches) { - $upstream=shift @matches; - last; + foreach my $dir (qw{. doc docs}) { + my @files=sort glob("$dir/*"); + foreach my $name (qw{changelog changes changelog.txt changes.txt history history.txt}) { + my @matches=grep { + lc basename($_) eq $name && -s $_ && ! excludefile($_) + } @files; + if (@matches) { + $upstream=shift @matches; + last; + } } } } -- 2.39.2