r48533 - in /trunk/dh-make-perl: debian/changelog lib/DhMakePerl.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Dec 10 05:35:32 2009
New Revision: 48533

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48533
Log:
while looking for docs, do not delve into SVN and GIT dirs

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/lib/DhMakePerl.pm

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=48533&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Thu Dec 10 05:35:32 2009
@@ -1,6 +1,7 @@
 dh-make-perl (0.62) UNRELEASED; urgency=low
 
   * tighten matching READMEs a bit; Closes: #560165
+  * while looking for docs, do not delve into SVN and GIT dirs
 
  -- Damyan Ivanov <dmn at debian.org>  Thu, 10 Dec 2009 07:29:05 +0200
 

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=48533&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Thu Dec 10 05:35:32 2009
@@ -973,6 +973,12 @@
     $dir .= '/' unless $dir =~ m(/$);
     find(
         sub {
+            if (   $File::Find::dir eq '.svn-base'
+                or $File::Find::dir eq '.git' )
+            {
+                $File::Find::prune = 1;
+                return;
+            }
             push( @docs, substr( $File::Find::name, length($dir) ) )
                 if ( /^\b(README|TODO|BUGS|NEWS|ANNOUNCE)\b/i
                 and ( !$self->cfg->exclude or $File::Find::name !~ $self->cfg->exclude )