Neo4j-Client

 view release on metacpan or  search on metacpan

build/build-aux/install-sh  view on Meta::CPAN

479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
else
  # 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 )