man page rendering of --help pod

Emulate git --help including terminal escapes.

diff --git a/graph b/graph
index cdcb80c90c98064ffedf65b5d6c6ae8b8d2332e8..ab51d0877dc49ac9517161ed92ddd7b7427450a2 100755 (executable)
--- 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',