From 0d0609d0225291aa9badde5be1f633bcc55c2ccd Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Sun, 18 Aug 2002 05:46:40 +0000
Subject: [PATCH] r543:    * Patch from Andrew Suffield to make dh_perl
 understand #!/usr/bin/env perl      Closes: #156243

---
 debian/changelog | 7 +++++++
 dh_perl          | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/debian/changelog b/debian/changelog
index 709e49c..4abd71e 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+debhelper (4.1.4) unstable; urgency=low
+
+  * Patch from Andrew Suffield to make dh_perl understand #!/usr/bin/env perl
+    Closes: #156243
+
+ -- Joey Hess <joeyh@debian.org>  Sat, 17 Aug 2002 23:05:45 -0400
+
 debhelper (4.1.3) unstable; urgency=low
 
   * dh_installinit: Always start daemon on upgraded even if
diff --git a/dh_perl b/dh_perl
index a40c6fd..e9a001d 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;
-- 
2.39.2