From c5ee6c3ab264977f69ec4c4ed0b79eeaa280f65a Mon Sep 17 00:00:00 2001
From: Magnus Hagander <magnus@hagander.net>
Date: Wed, 3 Oct 2007 13:20:40 +0000
Subject: [PATCH] More detailed error msg (with stack trace) if a file copy
 fails.

---
 src/tools/msvc/Install.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/tools/msvc/Install.pm b/src/tools/msvc/Install.pm
index baafdc6dcc..f695f16465 100644
--- a/src/tools/msvc/Install.pm
+++ b/src/tools/msvc/Install.pm
@@ -22,9 +22,14 @@ sub lcopy
 	my $src = shift;
 	my $target = shift;
 
-	unlink $target if -f $target;
+        if (-f $target)
+        {
+           unlink $target || confess "Could not delete $target\n";
+        }
+
+	copy($src,$target)
+          || confess "Could not copy $src to $target\n";
 
-	copy($src,$target);
 }
 
 sub Install
@@ -123,8 +128,7 @@ sub CopyFiles
         print ".";
         $f = $basedir . $f;
         die "No file $f\n" if (!-f $f);
-        lcopy($f, $target . basename($f))
-          || croak "Could not copy $f to $target". basename($f). " to $target". basename($f) . "\n";
+        lcopy($f, $target . basename($f));
     }
     print "\n";
 }
-- 
2.39.5