]>
Commit | Line | Data |
---|---|---|
2e9ea4a2 | 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 | { |