Neo4j-Client
view release on metacpan or search on metacpan
build/build-aux/install-sh view on Meta::CPAN
479480481482483484485486487488489490491492493494495496497498499else
# Rename the file to the real destination.
$doit
$mvcmd
-f
"$dsttmp"
"$dst"
2>/dev/null ||
# The rename failed, perhaps because mv can't rename something else
# to itself, or perhaps because mv is so ancient that it does not
# support -f.
{
# Now remove or move aside any old file at destination location.
# We try this two ways since rm can't unlink itself on some
# systems and the destination file might be busy for other
# reasons. In this case, the final cleanup might fail but the new
# file should still install successfully.
{
test ! -f
"$dst"
||
$doit
$rmcmd
-f
"$dst"
2>/dev/null ||
{
$doit
$mvcmd
-f
"$dst"
"$rmtmp"
2>/dev/null &&
{
$doit
$rmcmd
-f
"$rmtmp"
2>/dev/null; :; }
} ||
{ echo
"$0: cannot unlink or rename $dst"
>&2
(
exit
1);
exit
1
( run in 0.250 second using v1.01-cache-2.11-cpan-bf8d7bb2d05 )