From: joey <joey>
Date: Sun, 18 Aug 2002 05:46:40 +0000 (+0000)
Subject: r543:    * Patch from Andrew Suffield to make dh_perl understand #!/usr/bin/env perl
X-Git-Tag: version_2.0.101~56
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0d0609d0225291aa9badde5be1f633bcc55c2ccd;p=debhelper.git

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

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;