diff options
author | Eric Wong <e@80x24.org> | 2021-10-12 11:47:00 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-10-12 21:46:33 +0000 |
commit | fa22ddb787e8cf8ac763f5ed21bea41c34c611c8 (patch) | |
tree | bed15372858f4f151d3222c15fbc5914e43f501e /lib | |
parent | 4bbafbc4bc8869e3f0fb35fdde727b2334fd6b46 (diff) | |
download | public-inbox-fa22ddb787e8cf8ac763f5ed21bea41c34c611c8.tar.gz |
"<0>" could be a valid Message-ID, maybe...
Diffstat (limited to 'lib')
-rw-r--r-- | lib/PublicInbox/NNTP.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm index ea9ce183..aa019368 100644 --- a/lib/PublicInbox/NNTP.pm +++ b/lib/PublicInbox/NNTP.pm @@ -9,6 +9,7 @@ # long_cb: long_response private data package PublicInbox::NNTP; use strict; +use v5.10.1; use parent qw(PublicInbox::DS); use PublicInbox::MID qw(mid_escape $MID_EXTRACT); use PublicInbox::Eml; @@ -381,11 +382,10 @@ sub article_adj ($$) { defined $n or return '420 no current article has been selected'; $n += $off; - my $mid = $ibx->mm(1)->mid_for($n); - unless ($mid) { + my $mid = $ibx->mm(1)->mid_for($n) // do { $n = $off > 0 ? 'next' : 'previous'; return "421 no $n article in this group"; - } + }; $self->{article} = $n; "223 $n <$mid> article retrieved - request text separately"; } |