- release 9

[packages/perl-Tk.git] / perl-Tk-man_section.patch

diff --git a/perl-Tk-man_section.patch b/perl-Tk-man_section.patch
index 62f75935f6f1e9739a78b4cd8a832272f4dac5c9..a3177bd430998076fd1761e427e0523254ae717f 100644 (file)
--- a/perl-Tk-man_section.patch
+++ b/perl-Tk-man_section.patch
@@ -1,11 +1,12 @@
---- 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 @@
+diff -Nru Tk-804.027.vanilla/Tk/MMutil.pm Tk-804.027/Tk/MMutil.pm
+--- Tk-804.027.vanilla/Tk/MMutil.pm    2004-03-27 15:55:55.000000000 +0100
++++ Tk-804.027/Tk/MMutil.pm    2005-03-11 20:44:29.614912584 +0100
+@@ -366,7 +366,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)"/;
+-   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)
    {