cvs commit: modperl-2.0/Apache-Test/lib/Apache TestConfig.pm

[dougm]

dougm       01/04/20 09:46:52

  Modified:    Apache-Test/lib/Apache TestConfig.pm
  Log:
  deal properly with args
  
  Revision  Changes    Path
  1.10      +5 -2      modperl-2.0/Apache-Test/lib/Apache/TestConfig.pm
  
  Index: TestConfig.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestConfig.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- TestConfig.pm     2001/04/19 21:21:16     1.9
  +++ TestConfig.pm     2001/04/20 16:46:50     1.10
  @@ -74,9 +74,12 @@
   }
   
   sub new {
  -    my($class, $args) = @_;
  +    my $class = shift;
  +    my $args;
   
  -    $args = ($args and ref($args)) ? {%$args} : {@_}; #copy
  +    $args = shift if $_[0] and ref $_[0];
  +
  +    $args = $args ? {%$args} : {@_}; #copy
   
       my $thaw = {};