-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Kim Goldov wrote:

| I'm using a <Perl> section to configure name virtual hosts. I would
| like to have multiple aliases defined in each virtual host, however
| I was only able to define a single alias in the virtual host.

Seems you've uncovered a small bug in the <Perl> sections.

Does the following patch solve the problem for you ?

Index: lib/Apache/PerlSections.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/PerlSections.pm,v
retrieving revision 1.5
diff -u -I$Id -r1.5 PerlSections.pm
- --- lib/Apache/PerlSections.pm  9 Jul 2004 08:01:20 -0000       1.5
+++ lib/Apache/PerlSections.pm  6 Aug 2004 21:20:36 -0000
@@ -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);

| This works ...
|
| $VirtualHost{"_default_"} = [ { ServerName   => "w3.goldov.com",
| DocumentRoot => "$webdir/goldov/static/html", Alias        =>  [
| "/images" => "$webdir/goldov/static/images" ], }, { ServerName   =>
| "w3.freylakh.com", DocumentRoot => "$webdir/freylakh/static/html",
| },
|
| This does not work ...
|
| $VirtualHost{"_default_"} = [ { ServerName   => "w3.goldov.com",
| DocumentRoot => "$webdir/goldov/static/html", Alias        =>  [
| ["/images" => "$webdir/goldov/static/images"} ], [ "/audio"  =>
| "$webdir/goldov/static/audio", ], ], ### NO }, ...
|
|
| Kim
|

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.5 (GNU/Linux)
Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org

iD8DBQFBE/ZjyzKhB4jDpaURAnB1AKCMKuoA53QIIYE9sTj1kXnvZ7Mc3wCfWKit
B6P1p/gU2ccOwzIJoqN61Pc=
=hs3I
-----END PGP SIGNATURE-----


-- Report problems: http://perl.apache.org/bugs/ Mail list info: http://perl.apache.org/maillist/modperl.html List etiquette: http://perl.apache.org/maillist/email-etiquette.html



Reply via email to