stas 2002/12/12 00:44:59 Modified: t/response/TestDirective perlloadmodule2.pm Log: tidy up Revision Changes Path 1.4 +1 -3 modperl-2.0/t/response/TestDirective/perlloadmodule2.pm Index: perlloadmodule2.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/perlloadmodule2.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- perlloadmodule2.pm 6 Dec 2002 02:11:17 -0000 1.3 +++ perlloadmodule2.pm 12 Dec 2002 08:44:59 -0000 1.4 @@ -32,7 +32,7 @@ # when DIR_MERGE is called twice for the same $base/$add during # the same request push @{ $new{$_} }, @{ $base->{$_}||[] } for keys %$base; - push @{ $new{$_} }, @{ $add->{$_} ||[] } for keys %$add; + push @{ $new{$_} }, @{ $add->{$_} ||[] } for keys %$add; return bless \%new, ref($base); } @@ -48,8 +48,6 @@ #warn "$class->SERVER_MERGE\n"; merge(@_); } - - # this variable is of type ITERATE, so it'll get called as many times # as arguments, a single argument at a time. This function is called