Re: [PATCH] Re: replacing "inuse" Win files (was Re: Help with a Cwd.pm build error)

[Randy W. Sims]

Thanks for working on this Yves...
demerphq wrote:
------------------------------------------------------------------------

diff -wurd \.cpan\build\ExtUtils-MakeMaker-6.30/lib/ExtUtils/Install.pm 
ExtUtils-MakeMaker-6.30_patched/lib/ExtUtils/Install.pm
--- \.cpan\build\ExtUtils-MakeMaker-6.30/lib/ExtUtils/Install.pm        
2005-03-22 05:30:24.000000000 +0100
+++ ExtUtils-MakeMaker-6.30_patched/lib/ExtUtils/Install.pm     2006-01-30 
23:58:27.013626600 +0100
@@ -91,6 +91,7 @@
     use File::Path qw(mkpath);
     use File::Compare qw(compare);

+    my $win32=!$nonono && $^O eq 'MSWin32';
     my(%from_to) = %$from_to;
     my(%pack, $dir, $warn_permissions);
     my($packlist) = ExtUtils::Packlist->new();
@@ -170,7 +171,28 @@
            }

            if ($diff){
-               if (-f $targetfile){
+               if ($win32 && -f $targetfile && !unlink $targetfile) {
+                   print "Can't remove existing '$targetfile': $!\n";
+                   require Win32API::File;

Note that this module is not always available 0n Win32; it's not in 
core. It does seem to be present ActiveState distros back to 5.005.

+                   my $tmp= "AAA";
+                   ++$tmp while -e "$targetfile.$tmp";
+                   $tmp= "$targetfile.$tmp";
+                   if ( rename $targetfile, $tmp ) {
+                       print "However it has been renamed as '$tmp' which ".
+                             "will be removed at next reboot.\n";
+                       Win32API::File::MoveFileEx( $tmp, [],
+                           Win32API::File::MOVEFILE_DELAY_UNTIL_REBOOT() )
+                           or die "MoveFileEx/Delete '$tmp' failed: $^E\n";
+                   } else {
+                       print "Installation cannot be completed until you 
reboot.\n",
+                             "Until then using '$tmp' as the install 
filename.\n";
+                       Win32API::File::MoveFileEx( $tmp, $targetfile,
+                           Win32API::File::MOVEFILE_REPLACE_EXISTING() |
+                           Win32API::File::MOVEFILE_DELAY_UNTIL_REBOOT() )
+                           or die "MoveFileEx/Replace '$tmp' failed: $^E\n";
+                       $targetfile= $tmp;
+                   }
+               } elsif (-f $targetfile) {
                    forceunlink($targetfile) unless $nonono;
                } else {
                    mkpath($targetdir,0,0755) unless $nonono;