[dh-make-perl] 01/02: DhMakePerl::Command::Packaging: extract_docs(): ignore all top-level README*

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository dh-make-perl.

commit e8b6cc8a9a8325f900215ae1384fbd70622e4bb1
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Aug 4 11:12:51 2017 -0400

    DhMakePerl::Command::Packaging: extract_docs(): ignore all top-level README*
    
    files not just README itself. The trendy new .md or .mkdn versions usually
    are also just text versions of the POD, formatted in Markdown for GitHub.
---
 lib/DhMakePerl/Command/Packaging.pm | 4 +++-
 t/dists/Strange-2.1/README.md       | 0
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/DhMakePerl/Command/Packaging.pm b/lib/DhMakePerl/Command/Packaging.pm
index cb36583..8709ba6 100644
--- a/lib/DhMakePerl/Command/Packaging.pm
+++ b/lib/DhMakePerl/Command/Packaging.pm
@@ -816,6 +816,8 @@ sub extract_docs {
     my $dir = $self->main_dir;
 
     $dir .= '/' unless $dir =~ m(/$);
+
+    my $toplevelreadme_re = $self->main_dir . '/README(?:\.\w+)?$';
     find(
         {   preprocess => sub {
                 my $bn = basename $File::Find::dir;
@@ -832,7 +834,7 @@ sub extract_docs {
                     substr( $File::Find::name, length($dir) )
                     )
                     if (
-                        $File::Find::name ne $self->main_dir . '/README'
+                        $File::Find::name !~ m{$toplevelreadme_re}
                     and /^\b(README|TODO|BUGS|NEWS|ANNOUNCE|CONTRIBUTING)\b/i
                     and !/\.(pod|pm)$/
                     and ( !$self->cfg->exclude
diff --git a/t/dists/Strange-2.1/README.md b/t/dists/Strange-2.1/README.md
new file mode 100644
index 0000000..e69de29

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/dh-make-perl.git