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