gozer 2004/03/08 13:54:05
Modified: src/docs/2.0/user/config custom.pod
Log:
Fix a small typo:
foreach my $k (keys %a, %b) {
does not work as expected, must be written as:
foreach my $k (keys %a, keys %b) {
Revision Changes Path
1.9 +1 -1 modperl-docs/src/docs/2.0/user/config/custom.pod
Index: custom.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/2.0/user/config/custom.pod,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- custom.pod 5 Aug 2003 17:00:45 -0000 1.8
+++ custom.pod 8 Mar 2004 21:54:05 -0000 1.9
@@ -910,7 +910,7 @@
my($base, $add) = @_;
my %mrg = ();
- for my $key (keys %$base, %$add) {
+ for my $key (keys %$base, keys %$add) {
next if exists $mrg{$key};
if ($key eq 'MyPlus') {
$mrg{$key} = ($base->{$key}||0) + ($add->{$key}||0);
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
