Replace a rename call with rename_link_xf, and change the subsequent
error handling to use $@ iff appropriate.
Closes: #910730.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
my $mv = sub {
my ($why, $l) = @_;
printdebug " renaming ($why) $l\n";
- rename "$l", bpd_abs()."/$l"
- or fail f_ "put in place new built file (%s): %s", $l, $!;
+ rename_link_xf 0, "$l", bpd_abs()."/$l"
+ or fail f_ "put in place new built file (%s): %s", $l, $@;
};
foreach my $l (split /\n/, getfield $dsc, 'Files') {
$l =~ m/\S+$/ or next;