r17999 - /trunk/dh-make-perl/dh-make-perl
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Wed Mar 26 19:05:27 UTC 2008
Author: gregoa-guest
Date: Wed Mar 26 19:05:26 2008
New Revision: 17999
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=17999
Log:
apply dams fix for the $opts{exclude} logic in extract_docs from commit 17951 also to extract_changelog and extract_examples
Modified:
trunk/dh-make-perl/dh-make-perl
Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=17999&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Wed Mar 26 19:05:26 2008
@@ -669,7 +669,7 @@
$dir .= '/' unless $dir =~ m(/$);
find(sub {
$changelog = substr($File::Find::name, length($dir))
- if (!defined($changelog) && /^change(s|log)$/i && (! $opts{exclude} || ! $File::Find::name =~ /$opts{exclude}/));
+ if (!defined($changelog) && /^change(s|log)$/i and (! $opts{exclude} or $File::Find::name !~ /$opts{exclude}/));
}, $dir);
}
@@ -687,7 +687,7 @@
$dir .= '/' unless $dir =~ m(/$);
find(sub {
push (@examples, substr($File::Find::name, length($dir)) . '/*')
- if (/^(examples|eg|samples?)$/i && (! $opts{exclude} || ! $File::Find::name =~ /$opts{exclude}/)) ;
+ if (/^(examples|eg|samples?)$/i and (! $opts{exclude} or $File::Find::name !~ /$opts{exclude}/)) ;
}, $dir);
}
More information about the Pkg-perl-cvs-commits
mailing list