mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More detailed error msg (with stack trace) if a file copy fails.

Browse Source
This commit is contained in:
Magnus Hagander 2007-10-03 13:20:40 +00:00
parent fa8a9f373c
commit bdf6b888a8
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/tools/msvc/Install.pm
View File

@ -3,7 +3,7 @@ package Install;
# #
# Package that provides 'make install' functionality for msvc builds # Package that provides 'make install' functionality for msvc builds
# #
# $PostgreSQL: pgsql/src/tools/msvc/Install.pm,v 1.22 2007/09/27 21:13:11 adunstan Exp $ # $PostgreSQL: pgsql/src/tools/msvc/Install.pm,v 1.23 2007/10/03 13:20:40 mha Exp $
# #
use strict; use strict;
use warnings; use warnings;
@ -22,9 +22,14 @@ sub lcopy
my $src = shift; my $src = shift;
my $target = 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 sub Install
@ -123,8 +128,7 @@ sub CopyFiles
print "."; print ".";
$f = $basedir . $f; $f = $basedir . $f;
die "No file $f\n" if (!-f $f); die "No file $f\n" if (!-f $f);
lcopy($f, $target . basename($f)) lcopy($f, $target . basename($f));
|| croak "Could not copy $f to $target". basename($f). " to $target". basename($f) . "\n";
} }
print "\n"; print "\n";
} }