Tk800.018 seems to be incompatible with perl 5.005_63 (with patch)

[David Dyck <dcd@tc.fluke.com>]

I assume that this is a bug in Tk800.018, and that perl 5.005_63
is just checking things better now, but I've cc'd p5p
to verfiy this isn't a perl problem --
 (( why should {map({0} ())} fail to compile but 
    {map ({0} ())} and {map({0}, ())} compile with perl -e ? ))

First, I was able to make test with Tk800.018 and perl 5.005_57 (on a different
host).

With perl 5.005_63 the installed Tk800.018 fails to load.

dd:dcd$ perl -MTk::CmdLine -e 0
/usr/local/lib/site_perl/5.00563/i686-linux/Tk/CmdLine.pm has too many errors.
Compilation failed in require.
BEGIN failed--compilation aborted.


Here's a patch to Tk/CmdLine.pm that is missing the comma in the map
function call.

--- Tk/CmdLine.pm.orig	Sat Jan 15 04:00:33 2000
+++ Tk/CmdLine.pm	Tue Jan 25 12:30:07 2000
@@ -380,7 +380,7 @@
                 };
             }
 
-            my @postfix = map({ $_ . '/' . $self->{config}->{-class} }
+            my @postfix = map({ $_ . '/' . $self->{config}->{-class} },
                 ('/' . $self->{translation}->{'%L'}), '');
 
             ITEM: foreach $fileSpec (split(':', $xpath))

---

Follow-Ups from:

Ben Pavon <ben.pavon@hsc.hac.com>

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---