diff options
author | Eric Wong <e@80x24.org> | 2023-11-02 09:35:28 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2023-11-02 23:46:54 +0000 |
commit | db47ea523760f7ceef3d38c0008e082e9e7d1c02 (patch) | |
tree | c16385b1824df5bc506fbe4c983e8fe3a31d0a48 /lib/PublicInbox/CodeSearchIdx.pm | |
parent | 52cd1dd47c83f18681bab081db5041f8bfa5dfbe (diff) | |
download | public-inbox-db47ea523760f7ceef3d38c0008e082e9e7d1c02.tar.gz |
treewide: use ->close method rather than CORE::close
It's easier-to-read and should open the door for us to get rid of `tie' for ProcessIO without performance penalties for more frequently-used perlop calls and ability to do `stat' directly on the object instead of the awkward `tied' thing.
Diffstat (limited to 'lib/PublicInbox/CodeSearchIdx.pm')
-rw-r--r-- | lib/PublicInbox/CodeSearchIdx.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/PublicInbox/CodeSearchIdx.pm b/lib/PublicInbox/CodeSearchIdx.pm index bf410734..c1a1ee90 100644 --- a/lib/PublicInbox/CodeSearchIdx.pm +++ b/lib/PublicInbox/CodeSearchIdx.pm @@ -480,11 +480,11 @@ sub partition_refs ($$$) { $seen = 0; } if ($DO_QUIT) { - CORE::close($rfh); + $rfh->close; return (); } } - CORE::close($rfh); + $rfh->close; return () if $DO_QUIT; if (!$? || (($? & 127) == POSIX::SIGPIPE && $seen > $SEEN_MAX)) { my $n = $NCHANGE - $n0; @@ -887,7 +887,7 @@ sub associate { ++$score{"$ibx_id $_"} for @root_ids; } } - CORE::close $rd or die "@join failed: $?=$?"; + $rd->close or die "fatal: @join failed: \$?=$?"; my $min = $self->{-opt}->{'assoc-min'} // 10; progress($self, scalar(keys %score).' potential pairings...'); for my $k (keys %score) { |