From a192e56ca5654a5e11f7652313a163648fda8f25 Mon Sep 17 00:00:00 2001
From: Dave Rolsky <autarch@urth.org>
Date: Mon, 29 Mar 2010 09:03:40 -0500
Subject: [PATCH] Fix pp test rewriting to not expect shbang in most tests

---
 Build.PL | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Build.PL b/Build.PL
index aedc032..ecd8b5d 100644
--- a/Build.PL
+++ b/Build.PL
@@ -58,9 +58,9 @@ sub _make_pp_tests {
 
         my $test = read_file("t/$file");
 
-        my $bang_flags = $test =~ /perl -Tw/ ? '-Tw' : '-w';
+        my $bang = $test =~ /perl (-\w+)/ ? "#!perl $1\n\n" : q{};
         $test
-            = "#!/usr/bin/perl $bang_flags \n\nBEGIN { \$ENV{PV_TEST_PERL} = 1 }\n\n$test";
+            = $bang . "BEGIN { \$ENV{PV_TEST_PERL} = 1 }\n\n$test";
 
         my $new_file = "t/pp_$file";
         write_file( $new_file, $test );