Fix pp test rewriting to not expect shbang in most tests

houseabsolute · Mar 29, 2010 · a192e56 · a192e56
1 parent 114d694
commit a192e56
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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 );