From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net X-Spam-Level: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00 shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id B35441FBCD for ; Mon, 1 Jun 2020 10:06:58 +0000 (UTC) From: Eric Wong To: meta@public-inbox.org Subject: [PATCH 07/13] inbox: msg_by_*: remove $(size)ref args Date: Mon, 1 Jun 2020 10:06:51 +0000 Message-Id: <20200601100657.14700-8-e@yhbt.net> In-Reply-To: <20200601100657.14700-1-e@yhbt.net> References: <20200601100657.14700-1-e@yhbt.net> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: None of our current callers care about the size of the blob we're retrieving, so stop wasting stack space and code for it. --- lib/PublicInbox/Inbox.pm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/lib/PublicInbox/Inbox.pm b/lib/PublicInbox/Inbox.pm index bd1489e3699..38abdfe5847 100644 --- a/lib/PublicInbox/Inbox.pm +++ b/lib/PublicInbox/Inbox.pm @@ -310,25 +310,25 @@ sub nntp_usable { } # for v1 users w/o SQLite only -sub msg_by_path ($$;$) { - my ($self, $path, $ref) = @_; - git($self)->cat_file('HEAD:'.$path, $ref); +sub msg_by_path ($$) { + my ($self, $path) = @_; + git($self)->cat_file('HEAD:'.$path); } -sub msg_by_smsg ($$;$) { - my ($self, $smsg, $ref) = @_; +sub msg_by_smsg ($$) { + my ($self, $smsg) = @_; # ghosts may have undef smsg (from SearchThread.node) or # no {blob} field return unless defined $smsg; defined(my $blob = $smsg->{blob}) or return; - git($self)->cat_file($blob, $ref); + git($self)->cat_file($blob); } sub smsg_mime { - my ($self, $smsg, $ref) = @_; - if (my $s = msg_by_smsg($self, $smsg, $ref)) { + my ($self, $smsg) = @_; + if (my $s = msg_by_smsg($self, $smsg)) { $smsg->{mime} = PublicInbox::Eml->new($s); return $smsg; } @@ -355,14 +355,14 @@ sub smsg_by_mid ($$) { PublicInbox::Smsg::psgi_cull($smsg); } -sub msg_by_mid ($$;$) { - my ($self, $mid, $ref) = @_; +sub msg_by_mid ($$) { + my ($self, $mid) = @_; over($self) or - return msg_by_path($self, mid2path($mid), $ref); + return msg_by_path($self, mid2path($mid)); my $smsg = smsg_by_mid($self, $mid); - $smsg ? msg_by_smsg($self, $smsg, $ref) : undef; + $smsg ? msg_by_smsg($self, $smsg) : undef; } sub recent {