etc/vim/templates/perl.tt

diff --git a/etc/vim/templates/perl.tt b/etc/vim/templates/perl.tt
index 34aff7d2c0b61d9f5b947bb9b6cc584c7dfc32ac..2d6d368be8c37081a3dabbb78eac55dee09061a3 100755 (executable)
--- 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";
        }