use less for output

[dell-switch] / git-log-merge.pl

diff --git a/git-log-merge.pl b/git-log-merge.pl
index 9886fdc..4bd55f4 100755 (executable)
--- a/git-log-merge.pl
+++ b/git-log-merge.pl
@@ -59,7 +59,7 @@ while(1) {
        #warn "# date_commit = ",dump($date_commit);
        my $date = ( sort { $b cmp $a } keys %$date_commit )[0];
        my $repo = $date_commit->{$date};
-       print "# $date $repo\n$commit->{$repo}";
+       print $less "# $date $repo\n$commit->{$repo}";
        $commit->{$repo} = $commit_next->{$repo};
        delete $date_commit->{$date};
        get_commit $repo;