From dbb5d111968be2f0c4f7fb012787c67b9bac57f7 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
Date: Mon, 28 Apr 2008 15:37:17 -0400
Subject: Deal with different paths to perl when removing -T flag.

---
 pm_filter | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pm_filter')

diff --git a/pm_filter b/pm_filter
index a66cf2154..6c745e1f8 100755
--- a/pm_filter
+++ b/pm_filter
@@ -20,7 +20,7 @@ elsif (/^use lib/) {
 		$_="use lib '$libdir';\n";
 	}
 }
-elsif ($. == 1 && ($ENV{NOTAINT} || ! exists $ENV{NOTAINT}) && m{^(#!/usr/bin/perl) -T$}) {
+elsif ($. == 1 && ($ENV{NOTAINT} || ! exists $ENV{NOTAINT}) && m{^(#!.*perl.*?) -T$}) {
 	$_=qq{$1\n};
 }
 if (/^\$ENV{PATH}="(.*)";/) {
-- 
cgit v1.2.3