cvs commit: modperl-2.0/lib/Apache PerlSections.pm

[gozer]

gozer       2004/08/08 17:17:05

  Modified:    lib/Apache PerlSections.pm
  Log:
  Fix a bug in <Perl> sections with multiple aliases in a
  virtualhost container.
  
  Thread: http://marc.theaimsgroup.com/?t=109176430600002
  Reported by : Kim Goldov <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.6       +6 -1      modperl-2.0/lib/Apache/PerlSections.pm
  
  Index: PerlSections.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/PerlSections.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- PerlSections.pm   9 Jul 2004 08:01:20 -0000       1.5
  +++ PerlSections.pm   9 Aug 2004 00:17:05 -0000       1.6
  @@ -172,7 +172,12 @@
           $self->add_config("$name $$entry\n");
       }
       elsif ($type eq 'ARRAY') {
  -        $self->add_config("$name @$entry\n");
  +        if (grep {ref} @$entry) {
  +            $self->dump_entry($name, $_) for @$entry;
  +        }
  +        else {
  +            $self->add_config("$name @$entry\n");
  +        }
       }
       elsif ($type eq 'HASH') {
           $self->dump_hash($name, $entry);