--- ./lib/Module/Build/Base.pm.tv	2012-09-04 17:32:42.389554745 +0000
+++ ./lib/Module/Build/Base.pm	2012-09-04 17:32:30.532534716 +0000
@@ -2991,7 +2991,7 @@
 
   foreach my $file (keys %$files) {
     my $result = $self->copy_if_modified($file, $script_dir, 'flatten') or next;
-    $self->fix_shebang_line($result) unless $self->is_vmsish;
+    #$self->fix_shebang_line($result) unless $self->is_vmsish;
     $self->make_executable($result);
   }
 }
diff -p -up ./t/runthrough.t.tv ./t/runthrough.t
--- ./t/runthrough.t.tv	2012-09-04 22:28:47.200693947 +0200
+++ ./t/runthrough.t	2012-09-04 22:28:49.135842887 +0200
@@ -150,7 +150,7 @@ ok grep {$_ eq 'save_out'     } $mb->cle
   ok -e $blib_script;
 
  SKIP: {
-    skip("We do not rewrite shebang on VMS", 1) if $^O eq 'VMS';
+    skip("We do not rewrite shebang on VMS", 1) if 1;
     my $fh = IO::File->new($blib_script);
     my $first_line = <$fh>;
     isnt $first_line, "#!perl -w\n", "should rewrite the shebang line";