diff options
| author | Eric Wong <e@80x24.org> | 2021-02-02 22:11:40 -1000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2021-02-04 01:37:09 +0000 |
| commit | 36ee63d30ee076e6f6a8fdeabd50bf6757a3fdd6 (patch) | |
| tree | 9cf56942a4e1c4ac97e4465c28c25cd40d48af78 | |
| parent | d692a0550b58bb16770000aeaffb0308da0c9328 (diff) | |
| download | public-inbox-36ee63d30ee076e6f6a8fdeabd50bf6757a3fdd6.tar.gz | |
Because some commands have many options which take up multiple screens.
| -rw-r--r-- | lib/PublicInbox/LEI.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm index 3cb7a327..005f6f7a 100644 --- a/lib/PublicInbox/LEI.pm +++ b/lib/PublicInbox/LEI.pm @@ -507,7 +507,9 @@ EOF $msg .= $rhs; $msg .= "\n"; } - print { $self->{$errmsg ? 2 : 1} } $msg; + my $out = $self->{$errmsg ? 2 : 1}; + start_pager($self) if -t $out; + print $out $msg; x_it($self, $errmsg ? 1 << 8 : 0); # stderr => failure undef; } |