exigrep: use a pager if stdout is connected to a terminal

1 files changed, 10 insertions, 0 deletions

diff --git a/src/src/exigrep.src b/src/src/exigrep.src
index b678c0584..abc6f3a31 100644
--- a/src/src/exigrep.src
+++ b/src/src/exigrep.src
@@ -220,6 +220,16 @@ pod2usage if not @ARGV;
 $pattern = shift @ARGV;
 $pattern = quotemeta $pattern if $args{l};
 
+# Start a pager if output goes to a terminal
+if (-t 1)
+  {
+  foreach ($ENV{PAGER}//(), 'less', 'more')
+    {
+    open(my $pager, '|-', $_) or next;
+    select $pager;
+    last;
+    }
+}
 
 # If file arguments are given, open each one and process according as it is
 # is compressed or not.