From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 5 Sep 2019 16:48:53 +0000 (+0200)
Subject: man page rendering of --help pod
X-Git-Tag: v1.02~6
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/4644846ee87e7e9eaa30ec40d679d0e02afd8d14

man page rendering of --help pod

Emulate git --help including terminal escapes.
---

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',