summaryrefslogtreecommitdiff
path: root/dh_perl
diff options
context:
space:
mode:
authorJoey Hess <joey@gnu.kitenet.net>2009-09-15 13:19:00 -0400
committerJoey Hess <joey@gnu.kitenet.net>2009-09-15 13:19:00 -0400
commit0ddabafbcd0baf833394d50b48b3dae7d23fe52b (patch)
tree8e849fd53f324dc9d04b3bf8d300606dced9b710 /dh_perl
parent6c60efca68cc8e3b548c188da7ab54318af2bbfa (diff)
dh_perl: Do not look at perl scripts under /usr/share/doc. Closes: #546683
Diffstat (limited to 'dh_perl')
-rwxr-xr-xdh_perl2
1 files changed, 2 insertions, 0 deletions
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%) {