--- Standard.orig.pm 2006-08-23 18:24:08.000000000 +0200 +++ Standard.pm 2006-08-23 18:25:22.000000000 +0200 @@ -55,6 +55,11 @@ elsif (ref $setup{$c} eq 'ARRAY') { $config{$c}=[map { possibly_foolish_untaint($_) } @{$setup{$c}}] } + elsif (ref $setup{$c} eq 'HASH') { + foreach my $key (keys %{$setup{$c}}) { + $config{$c}{$key}=possibly_foolish_untaint($setup{$c}{$key}); + } + } } else { $config{$c}=undef;