cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue/Config File.pm

[spadkins]

cvsuser     02/07/12 14:09:21

  Modified:    P5EEx/Blue/P5EEx/Blue/Config File.pm
  Log:
  enable named args in constructor
  
  Revision  Changes    Path
  1.8       +5 -2      p5ee/P5EEx/Blue/P5EEx/Blue/Config/File.pm
  
  Index: File.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Config/File.pm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -w -r1.7 -r1.8
  --- File.pm   7 Jun 2002 22:40:36 -0000       1.7
  +++ File.pm   12 Jul 2002 21:09:21 -0000      1.8
  @@ -1,10 +1,10 @@
   
   #############################################################################
  -## $Id: File.pm,v 1.7 2002/06/07 22:40:36 spadkins Exp $
  +## $Id: File.pm,v 1.8 2002/07/12 21:09:21 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Config::File;
  -$VERSION = do { my @r=(q$Revision: 1.7 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  +$VERSION = do { my @r=(q$Revision: 1.8 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
   
   use P5EEx::Blue::P5EE;
   use P5EEx::Blue::Config;
  @@ -18,6 +18,9 @@
       my ($args);
       if ($#_ >= 0 && ref($_[0]) eq "HASH") {
           $args = $_[0];
  +    }
  +    elsif ($#_ >= 0 && $#_ % 2 == 1) {
  +        $args = { @_ };
       }
       else {
           $args = {};