# New Ticket Created by JÃrgen BÃmmels
# Please include the string: [perl #30500]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=30500 >
Hi,
I stumbled over another Perl Version Issue (actually it is a
Data::Dumper Version issue). The Perl on Debian Woddy ships
with Data::Dumper Version 2.102 which does not support
Sortkeys. Therefor Parrot doesn't even Configure.
I attach a patch which uses Sortkey only in Versions of
Data::Dumper supporting Sortkey. In what version was Sortkey
introduced to Data::Dumer?
bye
boe
Index: config/init/data.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/data.pl,v
retrieving revision 1.29
diff -u -r1.29 data.pl
--- config/init/data.pl 26 Jun 2004 14:44:10 -0000 1.29
+++ config/init/data.pl 27 Jun 2004 22:51:06 -0000
@@ -207,10 +207,19 @@
Dump config keys.
=cut
-
- *dump=sub {
- Data::Dumper->new([\%c], ['*PConfig'])->Sortkeys(1)->Dump();
- };
+
+ # Check if Data::Dumper supports Sortkeys
+ # XXX: Check Versionnumber
+ if ($Data::Dumper::VERSION > 2.102) {
+ *dump=sub {
+ Data::Dumper->new([\%c], ['*PConfig'])->Sortkeys(1)->Dump();
+ };
+ }
+ else {
+ *dump=sub {
+ Data::Dumper->new([\%c], ['*PConfig'])->Dump();
+ };
+ }
=item Configure::Data->clean()
--
Juergen Boemmels [EMAIL PROTECTED]
Fachbereich Physik Tel: ++49-(0)631-205-2817
Universitaet Kaiserslautern Fax: ++49-(0)631-205-3906
PGP Key fingerprint = 9F 56 54 3D 45 C1 32 6F 23 F6 C7 2F 85 93 DD 47
