X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_perl;h=eaa08fa8e8a4ab21e06cee785590b1cfc892c7ba;hb=0eed5884e3e476a4b0c69c68faf484186fc4a9da;hp=56d9f21a972d3c73d7912ee53bd396ee6da128bc;hpb=959e1d215a24efbfcc0211558df4f5bbd82e2155;p=debhelper.git

diff --git a/dh_perl b/dh_perl
index 56d9f21..eaa08fa 100755
--- a/dh_perl
+++ b/dh_perl
@@ -106,6 +106,8 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 	# find scripts
 	find sub {
 		return unless -f and (-x or /\.pl$/);
+		return if $File::Find::dir=~/\/usr\/share\/doc\//;
+		
 		local *F;
 		return unless open F, $_;
 		if (read F, local $_, 32 and m%^#!\s*(/usr/bin/perl|/usr/bin/env\s+perl)\s%) {