Re: CPAN version of PPM broken by latest ppd files
by Randy Kobes other posts by this author
Oct 3 2006 7:29AM messages near this date
view in the new Beta List Site
CPAN version of PPM broken by latest ppd files
|
Re: CPAN version of PPM broken by latest ppd files
On Tue, 3 Oct 2006, Sisyphus wrote:
> Hi,
> The version of PPM currently found on CPAN cannot handle the ActiveState ppd
> files:
>
> D:\>ppm search Math::FFT
> Unknown element 'PROVIDE' found inside of IMPLEMENTATION. at
> D:/perl58_M/site/5.8.8/lib/PPM.pm line 1537.
>
> D:\>ppm install Math::FFT
> Installing package 'Math-FFT'...
> Element 'IMPLEMENTATION' cannot contain a child element 'PROVIDE' at
> D:/perl58_M/site/5.8.8/lib/PPM.pm line 1658.
> Can't locate object method "rvalidate" via package "PPM::XML::PPD::PROVIDE"
> at D:/perl58_M/site/5.8.8/lib/PPM/XML/ValidatingElement.pm line 38.
>
> I've posted essentially the same report to rt.cpan.org.
>
> There's no such problem with the bribes ppd files - and there's probably no
> problem with the uwinnipeg ppd files (but I've been unable to verify that as
> the ppd files at that repository seeem to be temporarily inaccessible).
>
> Any plans to upgrade the PPM version found on CPAN ? (I'm assuming there are
> no plans to downgrade the ppd files found in the AS rep :-)
The problem with the uwinnipeg repository comes from us
inserting a PROVIDE element in the ppd file (which is
new for ppm4), and ppm2 not ignoring it. This patch
to the CPAN ppm version:
------------------------------------------------------
--- PPM.pm~ 2006-10-03 09:26:46.000000000 -0500
+++ PPM.pm 2006-10-03 09:26:46.000000000 -0500
@@ -1445,7 +1445,7 @@
}
else {
&Trace("Unknown element '$elem_type' found inside SOFTPKG") if $options{'TRACE
'};
- die "Unknown element '$elem_type' found inside SOFTPKG.";
+# die "Unknown element '$elem_type' found inside SOFTPKG.";
}
} # End of "for each child element inside the PPD"
@@ -1534,7 +1534,7 @@
{ $ImplUninstallScript = $elem-> {Kids}[0]{Text}; }
}
else {
- die "Unknown element '$elem_type' found inside of IMPLEMENTATION.";
+# die "Unknown element '$elem_type' found inside of IMPLEMENTATION.";
}
} # end of 'for every element inside IMPLEMENTATION'
@@ -1767,7 +1767,7 @@
}
else
{
- die "Unknown element inside of $pkg PACKAGE; $child";
+# die "Unknown element inside of $pkg PACKAGE; $child";
}
}
@@ -1780,7 +1780,7 @@
}
else
{
- die "Unknown element found in PPD_DAT file; $subelem";
+# die "Unknown element found in PPD_DAT file; $subelem";
}
}
if ($Debug & 1) {
----------------------------------------------------------------
should help.
--
best regards,
Randy
Thread:
Sisyphus
Randy Kobes
Sisyphus
Sisyphus
Randy Kobes
|