From 4644846ee87e7e9eaa30ec40d679d0e02afd8d14 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 5 Sep 2019 18:48:53 +0200
Subject: [PATCH] man page rendering of --help pod

Emulate git --help including terminal escapes.
---
 graph | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/graph b/graph
index cdcb80c..ab51d08 100755
--- a/graph
+++ b/graph
@@ -8,7 +8,10 @@ use open qw( :std :utf8 );
 our $VERSION = '1.02';
 
 use Getopt::Long '2.33', qw( :config gnu_getopt );
-sub podexit { require Pod::Usage; Pod::Usage::pod2usage(-exitval => 0, @_) }
+sub podexit {
+	require Pod::Usage;
+	Pod::Usage::pod2usage(-exitval => 0, -perldocopt => '-oman', @_);
+}
 GetOptions(\my %opt,
 	'color|c!',
 	'follow|f:i',
-- 
2.30.0