perl-Tk-man_section.patch

   1 --- Tk800.023/Tk/MMutil.pm~     Thu Jul 18 18:56:51 2002
   2 +++ Tk800.023/Tk/MMutil.pm      Thu Jul 18 18:56:51 2002
   3 @@ -321,7 +321,7 @@
   4   local $_ = $self->MM::manifypods;
   5   if ($] >= 5.00565)
   6    {
   7 -   s/(POD2MAN_EXE.*pod2man)/$1 --center "perl\/Tk Documentation" --release "Tk\$(VERSION)"/;
   8 +   s/(POD2MAN_EXE.*pod2man)/$1 --section=3pm --center "perl\/Tk Documentation" --release "Tk\$(VERSION)"/;
   9    }
  10   elsif ($] >= 5.003)
  11    {