cvs commit: parrot/config/init data.pl

[Will Coleda]

cvsuser     04/11/27 20:14:21

  Modified:    config/init data.pl
  Log:
  Some versions of Data::Dumper have versions that are not exactly numeric. 
(a.b_c)
  
  Revision  Changes    Path
  1.37      +2 -2      parrot/config/init/data.pl
  
  Index: data.pl
  ===================================================================
  RCS file: /cvs/public/parrot/config/init/data.pl,v
  retrieving revision 1.36
  retrieving revision 1.37
  diff -u -r1.36 -r1.37
  --- data.pl   19 Nov 2004 23:33:17 -0000      1.36
  +++ data.pl   28 Nov 2004 04:14:21 -0000      1.37
  @@ -1,6 +1,6 @@
   #! perl -w
   # Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -# $Id: data.pl,v 1.36 2004/11/19 23:33:17 pmichaud Exp $
  +# $Id: data.pl,v 1.37 2004/11/28 04:14:21 coke Exp $
   
   =head1 NAME
   
  @@ -239,7 +239,7 @@
   
     # Data::Dumper supports Sortkeys since 2.12
     # older versions will work but obviously not sorted
  -  if ($Data::Dumper::VERSION >= 2.12) {
  +  if (+$Data::Dumper::VERSION >= 2.12) {
       *dump=sub {
         Data::Dumper->new([\%c], ['*PConfig'])->Sortkeys(1)->Dump();
       };