From: Sean Dague (sean_at_dague.net)
Date: Sun Jun 27 2004 - 21:46:22 CEST
Date: Sun, 27 Jun 2004 15:46:22 -0400 From: Sean Dague <sean@dague.net> Message-ID: <20040627194622.GC14454@underhill.home.pvt> Subject: [taskjuggler-devel] Re: fix for tjx2gantt
On Sun, Jun 27, 2004 at 03:21:49PM -0400, Sean Dague wrote:
> On Sun, Jun 27, 2004 at 07:57:14PM +0200, Chris Schlaeger wrote:
> > -----BEGIN PGP SIGNED MESSAGE-----
> > Hash: SHA1
> >
> > I have applied the fix, but I run into another problem. It looks like new
> > version of Perl don't like the old syntax anymore.
> >
> > meta-method type struct not recognized as a V1 compatibility type
> > (cannot mix v1 & v2 options)
> > at ../../tjx2gantt/tjx2gantt line 28
> > BEGIN failed--compilation aborted at ../../tjx2gantt/tjx2gantt line 41.
> > make: *** [acso.eps] Error 255
> >
> > The author of tjx2gantt is no longer maintaining it. If we can't get it fixed,
> > we will drop tjx2gantt with the next release.
>
> Can you let me know what version of Perl that is? I'm having no problems
> running tjx2gannt under Mandrake 10 with perl 5.8.3. I would be willing to
> look at fixing the issue if I can reproduce the bug.
The issue seems to be Class::MethodMaker, which in going from 1.12 (version
I have installed) to 2.02 did a non compatible change. The following patch
will work with 2.02, however it will not work 1.x versions AFAIK.
--- tjx2gantt.new 2004-06-25 15:51:04.000000000 -0400
+++ tjx2gantt.mmfix 2004-06-27 15:40:24.169494775 -0400
@@ -24,21 +24,23 @@
use strict;
use warnings;
- use Class::MethodMaker
- new_hash_init => 'new',
- get_set => [ qw(Index ProjectID complete Priority Type Id Name ParentTask
- startBuffer endBuffer
- minStart maxStart
- minEnd maxEnd
- actualStart actualEnd
- planStart planEnd
- h_minStart h_minEnd
- h_maxStart h_maxEnd
- h_actualStart h_actualEnd
- h_planStart h_planEnd
- x1 y1 x2 y2
- label label_x label_y ) ],
- struct => [ qw(Followers Previous Allocations bookedResources) ];
+ use Class::MethodMaker
+ [
+ new => 'new',
+ scalar => [ qw(Index ProjectID complete Priority Type Id Name ParentTask
+ startBuffer endBuffer
+ minStart maxStart
+ minEnd maxEnd
+ actualStart actualEnd
+ planStart planEnd
+ h_minStart h_minEnd
+ h_maxStart h_maxEnd
+ h_actualStart h_actualEnd
+ h_planStart h_planEnd
+ x1 y1 x2 y2
+ label label_x label_y ) ],
+ array => [ qw(Followers Previous Allocations bookedResources) ]
+ ];
use XML::Parser;
use PostScript::Simple;
-Sean
-- __________________________________________________________________ Sean Dague Mid-Hudson Valley sean at dague dot net Linux Users Group http://dague.net http://mhvlug.org There is no silver bullet. Plus, werewolves make better neighbors than zombies, and they tend to keep the vampire population down. __________________________________________________________________
This archive was generated by hypermail 2.1.7 : Sun Jun 27 2004 - 21:50:40 CEST