update copyrights for 2021

[public-inbox.git] / lib / PublicInbox / Admin.pm

diff --git a/lib/PublicInbox/Admin.pm b/lib/PublicInbox/Admin.pm
index ea82133aa8adef38c994e528bf38649d4924bcf1..f96397ea7534e7d985892d577dad657b3025288b 100644 (file)
--- a/lib/PublicInbox/Admin.pm
+++ b/lib/PublicInbox/Admin.pm
@@ -1,4 +1,4 @@
-# Copyright (C) 2019-2020 all contributors <meta@public-inbox.org>
+# Copyright (C) 2019-2021 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 
 # common stuff for administrative command-line tools
@@ -10,7 +10,7 @@ our @EXPORT_OK = qw(setup_signals);
 use PublicInbox::Config;
 use PublicInbox::Inbox;
 use PublicInbox::Spawn qw(popen_rd);
-use File::Spec ();
+*rel2abs_collapsed = \&PublicInbox::Config::rel2abs_collapsed;
 
 sub setup_signals {
        my ($cb, $arg) = @_; # optional
@@ -27,15 +27,6 @@ sub setup_signals {
        };
 }
 
-# abs_path resolves symlinks, so we want to avoid it if rel2abs
-# is sufficient and doesn't leave "/.." or "/../"
-sub rel2abs_collapsed ($) {
-       my $p = File::Spec->rel2abs($_[0]);
-       return $p if substr($p, -3, 3) ne '/..' && index($p, '/../') < 0; # likely
-       require Cwd;
-       Cwd::abs_path($p);
-}
-
 sub resolve_inboxdir {
        my ($cd, $ver) = @_;
        my $try = $cd // '.';
@@ -136,7 +127,7 @@ sub resolve_inboxes ($;$$) {
                for (my $i = 0; $i <= $#dirs; $i++) {
                        my $dir = $dirs[$i];
                        my @st = stat($dir) or die "stat($dir): $!\n";
-                       $dir = resolve_inboxdir($dir, \(my $ver));
+                       $dir = $dirs[$i] = resolve_inboxdir($dir, \(my $ver));
                        if ($ver >= $min_ver) {
                                $s2i{"$st[0]\0$st[1]"} //= $i;
                        } else {
@@ -250,7 +241,7 @@ sub index_inbox {
        }
        local %SIG = %SIG;
        setup_signals(\&index_terminate, $ibx);
-       my $warn_cb = $SIG{__WARN__} // sub { print STDERR @_ };
+       my $warn_cb = $SIG{__WARN__} // \&CORE::warn;
        my $idx = { current_info => $ibx->{inboxdir} };
        my $warn_ignore = PublicInbox::InboxWritable->can('warn_ignore');
        local $SIG{__WARN__} = sub {
@@ -280,6 +271,7 @@ EOM
                $idx = PublicInbox::SearchIdx->new($ibx, 1);
        }
        $idx->index_sync($opt);
+       $idx->{nidx} // 0; # returns number processed
 }
 
 sub progress_prepare ($) {