commit dd4e0dd2ec3e090c346606a65f68c806397ce772

Author: Alexey Tourbin <at@altlinux.ru>

Date:   Sun Apr 24 22:56:29 2011 +0400

    ExtUtlis/MM_Unix.pm (fixin): shebang patch

diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm

index 4140432..24db9fb 100644

--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm

+++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm

@@ -1113,44 +1113,26 @@

     my ( $self, @files ) = @_;

     for my $file (@files) {

-        my $file_new = "$file.new";

-        my $file_bak = "$file.bak";

-

-        open( my $fixin, '<', $file ) or croak "Can't process '$file': $!";

+        open my $fh, "+<", $file or croak "Can't process '$file': $!";

+        my @stat = stat $fh;

         local $/ = "\n";

-        chomp( my $line = <$fixin> );

+        chomp( my $line = <$fh> );

         next unless $line =~ s/^\s*\#!\s*//;    # Not a shebang file.

         my $shb = $self->_fixin_replace_shebang( $file, $line );

         next unless defined $shb;

-        open( my $fixout, ">", "$file_new" ) or do {

-            warn "Can't create new $file: $!\n";

-            next;

-        };

+        # Read the rest and rewind.

+        local $/;

+        my $rest = <$fh>;

+        seek $fh, 0, 0;

         # Print out the new #! line (or equivalent).

         local $\;

-        local $/;

-        print $fixout $shb, <$fixin>;

-        close $fixin;

-        close $fixout;

-

-        chmod 0666, $file_bak;

-        unlink $file_bak;

-        unless ( _rename( $file, $file_bak ) ) {

-            warn "Can't rename $file to $file_bak: $!";

-            next;

-        }

-        unless ( _rename( $file_new, $file ) ) {

-            warn "Can't rename $file_new to $file: $!";

-            unless ( _rename( $file_bak, $file ) ) {

-                warn "Can't rename $file_bak back to $file either: $!";

-                warn "Leaving $file renamed as $file_bak\n";

-            }

-            next;

-        }

-        unlink $file_bak;

+        print $fh $shb, $rest;

+        truncate $fh, tell $fh;

+        close $fh;

+        utime @stat[8,9] => $file if @stat; # preserve timestamps

     }

     continue {

         system("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';