Refactor Conflict()

This commit is contained in:
Adam Spiers 2011-11-09 23:13:51 +00:00
parent ce93936919
commit d2e9969efb

12
stow.in
View file

@ -469,14 +469,14 @@ sub DoMkdir {
sub Conflict {
local($a, $b) = @_;
my $src = &JoinPaths($Stow, $a);
my $dst = &JoinPaths($Target, $b);
if ($Conflicts) {
warn sprintf("CONFLICT: %s vs. %s\n", &JoinPaths($Stow, $a),
&JoinPaths($Target, $b));
warn "CONFLICT: $src vs. $dst\n";
#system "ls -l $src $dst";
} else {
die sprintf("%s: CONFLICT: %s vs. %s\n",
$ProgramName,
&JoinPaths($Stow, $a),
&JoinPaths($Target, $b));
die "$ProgramName: CONFLICT: $src vs. $dst\n";
}
}