dh_installchangelogs: Fall back to looking for changelog files ending with ".txt...

diff --git a/debian/changelog b/debian/changelog
index 2f107939f7aaab00338a793e804baca7cce6f069..ebcb3818c982456806012968e94fe3f4234c5f98 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+debhelper (7.0.18) UNRELEASED; urgency=low
+
+  * dh_installchangelogs: Fall back to looking for changelog files ending
+    with ".txt". Closes: #498460
+
+ -- Joey Hess <joeyh@debian.org>  Wed, 10 Sep 2008 13:58:00 -0400
+
 debhelper (7.0.17) unstable; urgency=low
 
   [ Per Olofsson ]

diff --git a/dh_installchangelogs b/dh_installchangelogs
index 7042c5f9b742d270e7b13f67b123aaf84c1e4bb0..a5cce3f4f2770f8896b8949c3411ba3da19e2661 100755 (executable)
--- a/dh_installchangelogs
+++ b/dh_installchangelogs
@@ -68,7 +68,7 @@ my $changelog_name="changelog.Debian";
 if (! defined $upstream) {
        if (! isnative($dh{MAINPACKAGE}) && !compat(6)) {
                my @files=sort glob("*");
-               foreach my $name (qw{changelog changes}) {
+               foreach my $name (qw{changelog changes changelog.txt changes.txt}) {
                        my @matches=grep { lc $_ eq $name && -s $_ } @files;
                        if (@matches) {
                                $upstream=shift @matches;