lib/PublicInbox/NNTP.pm | 6 +++--- diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm index faa756345a396ab42293453c167d11e2e99ad0ff..dc4227ece87cf2e042ac793780268aebeca53cee 100644 --- a/lib/PublicInbox/NNTP.pm +++ b/lib/PublicInbox/NNTP.pm @@ -24,7 +24,7 @@ sub now () { clock_gettime(CLOCK_MONOTONIC) }; my @OVERVIEW = qw(Subject From Date Message-ID References Bytes Lines); -my %OVERVIEW = map { $_ => 1 } @OVERVIEW; +my $OVERVIEW_FMT = join(":\r\n", @OVERVIEW) . ":\r\n"; # disable commands with easy DoS potential: # LISTGROUP could get pretty bad, too... @@ -90,9 +90,9 @@ list_newsgroups($self, $wildmat); '.' } -sub list_overview_fmt ($$) { +sub list_overview_fmt ($) { my ($self) = @_; - more($self, $_ . ':') foreach @OVERVIEW; + do_more($self, $OVERVIEW_FMT); } sub list_active ($;$) {