Index: Tk800.024/Tk/MMutil.pm
--- Tk800.024/Tk/MMutil.pm.orig	2002-03-05 15:27:40.000000000 +0100
+++ Tk800.024/Tk/MMutil.pm	2003-10-09 11:45:43.000000000 +0200
@@ -330,18 +330,6 @@
  my $self = shift;
  # Maybe always call UNIX version - we HTMLize them later
  local $_ = $self->MM::manifypods;
- if ($] >= 5.00565)
-  {
-   s/(POD2MAN_EXE.*pod2man)/$1 --center "perl\/Tk Documentation" --release "Tk\$(VERSION)"/;
-  }
- elsif ($] >= 5.003)
-  {
-   s/(POD2MAN_EXE.*pod2man)/$1 -center "perl\/Tk Documentation" -release "Tk\$(VERSION)"/;
-  }
- else
-  {
-   s/(POD2MAN_EXE.*pod2man)/$1 -center \\"perl\/Tk Documentation\\" -release \\"Tk\$(VERSION)\\"/;
-  }
  s/\bpod::/Tk::/mg;
  s/\bpTk:://mg;
  $_;