r543: * Patch from Andrew Suffield to make dh_perl understand #!/usr/bin/env perl

[debhelper.git] / dh_perl

diff --git a/dh_perl b/dh_perl
index a40c6fd563a23e9a81cbb6e7f21807e9096c28ed..e9a001d9698e91534fda4566d362418bba20037b 100755 (executable)
--- a/dh_perl
+++ b/dh_perl
@@ -106,7 +106,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
                return unless -f and (-x or /\.pl$/);
                local *F;
                return unless open F, $_;
-               if (read F, local $_, 32 and m%^#!\s*/usr/bin/perl\s%) {
+               if (read F, local $_, 32 and m%^#!\s*(/usr/bin/perl|/usr/bin/env\s+perl)\s%) {
                        $deps |= PROGRAM;
                }
                close F;