r49888 - /trunk/dh-make-perl/lib/DhMakePerl.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat Jan  2 01:28:27 2010
New Revision: 49888

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49888
Log:
improve r45078 (skipping $dir when looking for examples):

 $_ contains '.', and not (like $File::Find::name which is problematic
afterwards) the whole directory name. so "length($_) > length($dir)" only
works for --refresh ($_ = ".") but not for new packages ($_ =
"Foo-Bar-1.2.3.4").

now simply check if $_ = "."


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

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=49888&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Sat Jan  2 01:28:27 2010
@@ -1000,7 +1000,7 @@
     $dir .= '/' unless $dir =~ m{/$};
     find(
         sub {
-            return unless length($_) > length($dir);  # skip the directory itself
+            return if $_ eq '.';  # skip the directory itself
             my $exampleguess = substr( $File::Find::name, length($dir) );
             push( @examples,
                 ( -d $exampleguess ? $exampleguess . '/*' : $exampleguess ) )