diff options
author | Joey Hess <joey@gnu.kitenet.net> | 2009-09-15 13:19:00 -0400 |
---|---|---|
committer | Joey Hess <joey@gnu.kitenet.net> | 2009-09-15 13:19:00 -0400 |
commit | 0ddabafbcd0baf833394d50b48b3dae7d23fe52b (patch) | |
tree | 8e849fd53f324dc9d04b3bf8d300606dced9b710 | |
parent | 6c60efca68cc8e3b548c188da7ab54318af2bbfa (diff) |
dh_perl: Do not look at perl scripts under /usr/share/doc. Closes: #546683
-rw-r--r-- | debian/changelog | 7 | ||||
-rwxr-xr-x | dh_perl | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/debian/changelog b/debian/changelog index 869226f4..e60996b4 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +debhelper (7.4.3) UNRELEASED; urgency=low + + * dh_perl: Do not look at perl scripts under /usr/share/doc. + Closes: #546683 + + -- Joey Hess <joeyh@debian.org> Tue, 15 Sep 2009 13:18:35 -0400 + debhelper (7.4.2) unstable; urgency=low * Man page typo. Closes: #545443 @@ -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%) { |