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
