honour `$PAGER`

1 files changed, 3 insertions, 1 deletions

diff --git a/git-logc b/git-logc
index 45523fa..de64a72 100755
--- a/git-logc
+++ b/git-logc
@@ -39,7 +39,9 @@ sub class_decor {
 open my $fh,'-|','git','log','--graph','--decorate=full','--pretty=format:%x00%h%x00%d%x00%ar%x00%aN%x00%s',($tty ? '--color=always' : ()),@ARGV;
 my $out;
 if ($tty) {
-    open $out,'|-','less';
+    my @pager = $ENV{PAGER};
+    @pager = (qw(less -S)) unless @pager;
+    open $out,'|-',@pager;
     $SIG{PIPE}=sub{exit 0};
 }
 else {