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