view release on metacpan or  search on metacpan

lib/SVL/Command/Search.pm  view on Meta::CPAN

      print "  mirrored at /" . $mirror->mirror->{target_path} . "\n";
      if ($share->url ne $mirror->url) {
        $stale++;
        if ($self->fix) {
          SVN::Mirror->new(
            target_path => $mirror->mirror->{target_path},
            source      => $share->url,
            repospath   => $mirror->mirror->{repospath},
            repos       => $mirror->mirror->{repos},
            config      => $mirror->mirror->{config},
          )->relocate;
          print "  fixed stale mirror " . $mirror->url . "\n";
        } else {
          print "  stale mirror " . $mirror->url . "\n";
        }
      }
    }
  }
  if ($stale && !$self->fix) {
    print "svl: you have stale mirrors, run svl search --fix $target \n";
  }