"$altdir/$slave.dpkg-tmp");
checked_mv("$altdir/$slave.dpkg-tmp", "$altdir/$slave");
} else {
- &pr("Removing $slave ($slavelinks[$slnum]), not appropriate with $versions[$preferred].")
+ &&pr("Removing $slave ($slavelinks[$slnum]), not appropriate with $versions[$preferred].")
if $verbosemode > 0;
- unlink("$altdir/$slave") || $! == &ENOENT ||
- &quit("unable to remove $altdir/$slave: $!");
+ unlink("$altdir/$slave") || $! == &ENOENT ||
+ &quit("unable to remove $altdir/$slave: $!");
}
}
sub checked_symlink {
my ($filename, $linkname) = @_;
symlink($filename, $linkname) ||
- &quit("unable to make $linkname a symlink to $filename: $!");
+ &quit("unable to make $linkname a symlink to $filename: $!");
}
sub checked_mv {
my ($source, $dest) = @_;
rename_mv($source, $dest) ||
- &quit("unable to install $source as $dest: $!");
+ &quit("unable to install $source as $dest: $!");
}
exit(0);