>Number:         23195
>Category:       pkg
>Synopsis:       p5-Tk does not build with perl-5.8.1
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    pkg-manager
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Sun Oct 19 18:39:00 UTC 2003
>Closed-Date:
>Last-Modified:
>Originator:     Michael van Elst
>Release:        NetBSD 1.6.1_STABLE
>Organization:
-- 
                                Michael van Elst
Internet: mlelstv@serpens.de
                                "A potential Snark may lurk in every tree."
>Environment:
	
	
System: NetBSD pepew 1.6.1_STABLE NetBSD 1.6.1_STABLE (PEPEW) #38: Mon Sep 29 21:17:31 MEST 2003 src@pepew:/amd/fud/d/0/src/sys/arch/i386/compile/PEPEW i386
Architecture: i386
Machine: i386
>Description:
Building x11/p5-Tk fails with the new lang/perl58 package that is based
on perl 5.8.1.

The build aborts (in several cases) with an error message like:

Unrecognized switch: --center  (-h will show valid options).
*** Error code 255

Stop.


>How-To-Repeat:
Install the latest perl58 package and then p5-Tk. This obviously
happens also if you have perl58 and p5-Tk installed and upgrade
from perl 5.8.0 to perl 5.8.1.

>Fix:
--- Tk800.024/Tk/MMutil.pm	Sun Oct 19 20:25:12 2003
+++ Tk800.024/Tk/MMutil.pm	Sun Oct 19 20:27:42 2003
@@ -330,7 +330,11 @@
  my $self = shift;
  # Maybe always call UNIX version - we HTMLize them later
  local $_ = $self->MM::manifypods;
- if ($] >= 5.00565)
+ if ($] >= 5.008001)
+  {
+   s/(POD2MAN_EXE.*pod2man)(.*?)"--"/$1 "--" --center "perl\/Tk Documentation" --release "Tk\$(VERSION)" $2/;
+  }
+ elsif ($] >= 5.00565)
   {
    s/(POD2MAN_EXE.*pod2man)/$1 --center "perl\/Tk Documentation" --release "Tk\$(VERSION)"/;
   }


>Release-Note:
>Audit-Trail:
>Unformatted: