mirror/postgresql
2
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2025-01-12 18:34:36 +08:00
Code Issues 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
#
# $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 warnings;
@ -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";
}