From: Devops <sys@15gifts.com>
Date: Tue, 11 Jul 2017 09:47:15 +0000 (+0100)
Subject: etc/vim/templates/perl.tt
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=c9592323426cdd6cfcdb54e22555b441042553e8;p=nb.git

etc/vim/templates/perl.tt
---

diff --git a/etc/vim/templates/perl.tt b/etc/vim/templates/perl.tt
index 34aff7d2..2d6d368b 100755
--- a/etc/vim/templates/perl.tt
+++ b/etc/vim/templates/perl.tt
@@ -56,7 +56,6 @@ sub help {
 #------------------------------------------------------------------------------
 
 	require 'Pod/Usage.pm' unless $INC{'Pod/Usage.pm'};
-	require 'Pod/Perldoc.pm' unless $INC{'Pod/Perldoc.pm'};
 
 	# Substitutions
 	sub pod_env {
@@ -78,6 +77,7 @@ sub help {
 	open(STDOUT,"|perl -pe 's/\.$$//g'".(($ENV{PAGER}||'') eq 'less' ? "|less -FRi" : ""));
 	my $opts = {
 		-input => $in_file,
+		#-msg => $main::_DATA_,
 		-ouput => \*STDOUT,
 		-exitval => 'noexit',
 		-sections => [qw(SYNOPSIS DESCRIPTION OPTIONS)],
@@ -105,11 +105,14 @@ sub get_options {
 
 	my @Opt;
 
+  $main::HELP_SPRINTF = 0;
 	sub pod_opt {
 		local $_;
 		my $o = shift;
 		$o =~ s/(=.|[\+\-\!]$)//;
 		$o = join(", ",map{"-$_"} split(/[\|,:;]/,$o));
+		#return sprintf('%-20s',"$o");
+    $main::HELP_SPRINTF = length($o) if length($o) > $main::HELP_SPRINTF;
 		return "$o";
 	}