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

     Closes: #156243

1 files changed, 1 insertions, 1 deletions

diff --git a/dh_perl b/dh_perl
index a40c6fd5..e9a001d9 100755
--- 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;