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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Jan 27 22:23:25 2010
New Revision: 51675

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51675
Log:
check_for_xs(): use relative path when matching excludes too

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=51675&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Wed Jan 27 22:23:25 2010
@@ -1281,7 +1281,7 @@
     my $rel_path = substr( $File::Find::name, length( $self->main_dir ) );
     ( $rel_path !~ m{/(?:examples?|samples|eg|t|docs?)/} )
             and
-    ( !$self->cfg->exclude or $File::Find::name !~ $self->cfg->exclude )
+    ( !$self->cfg->exclude or $rel_path !~ $self->cfg->exclude )
         && /\.(xs|c|cpp|cxx)$/i
         && do {
         $arch = 'any';