svn commit: r422774 - in /perl/modperl/trunk: Changes lib/Apache2/PerlSections.pm t/conf/extra.last.conf.in t/response/TestDirective/perldo.pm

[gozer]

Author: gozer
Date: Mon Jul 17 11:03:02 2006
New Revision: 422774

URL: http://svn.apache.org/viewvc?rev=422774&view=rev
Log:
Multi-line $PerlConfig used to throw errors instead of being
split on '\n'

Reported-By: Andreas J. Koenig


Modified:
    perl/modperl/trunk/Changes
    perl/modperl/trunk/lib/Apache2/PerlSections.pm
    perl/modperl/trunk/t/conf/extra.last.conf.in
    perl/modperl/trunk/t/response/TestDirective/perldo.pm

Modified: perl/modperl/trunk/Changes
URL: 
http://svn.apache.org/viewvc/perl/modperl/trunk/Changes?rev=422774&r1=422773&r2=422774&view=diff
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Mon Jul 17 11:03:02 2006
@@ -12,6 +12,8 @@
 
 =item 2.0.3-dev
 
+Multi-line $PerlConfig is now working [Gozer]
+
 PerlOptions None was previously incorrectly reported as invalid
 inside <VirtualHost> or <Directory> blocks.
 [Philip M. Gollucci]

Modified: perl/modperl/trunk/lib/Apache2/PerlSections.pm
URL: 
http://svn.apache.org/viewvc/perl/modperl/trunk/lib/Apache2/PerlSections.pm?rev=422774&r1=422773&r2=422774&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/PerlSections.pm (original)
+++ perl/modperl/trunk/lib/Apache2/PerlSections.pm Mon Jul 17 11:03:02 2006
@@ -65,8 +65,11 @@
     {
         no strict 'refs';
         foreach my $package ($self->package) {
-            $self->dump_special(${"${package}::$special"},
-              @{"${package}::$special"} );
+            my @config = map { split /\n/ } 
+                            grep { defined } 
+                                (@{"${package}::$special"}, 
+                                 ${"${package}::$special"});
+            $self->dump_special(@config);
         }
     }
 
@@ -193,10 +196,12 @@
 }
 
 sub add_config {
-    my ($self, $config) = @_;
-    return unless defined $config;
-    chomp($config);
-    push @{ $self->directives }, $config;
+    my ($self, @config) = @_;
+    foreach my $config (@config) {
+        return unless defined $config;
+        chomp($config);
+        push @{ $self->directives }, $config;
+    }
 }
 
 sub post_config {

Modified: perl/modperl/trunk/t/conf/extra.last.conf.in
URL: 
http://svn.apache.org/viewvc/perl/modperl/trunk/t/conf/extra.last.conf.in?rev=422774&r1=422773&r2=422774&view=diff
==============================================================================
--- perl/modperl/trunk/t/conf/extra.last.conf.in (original)
+++ perl/modperl/trunk/t/conf/extra.last.conf.in Mon Jul 17 11:03:02 2006
@@ -111,3 +111,23 @@
    Perl 1
 </VirtualHost>
 </IfDefine>
+
+#Single-line $PerlConfig
+<Perl>
+  $PerlConfig = "Alias /perl_sections_perlconfig_scalar @DocumentRoot@";
+</Perl>
+
+#Multi-line $PerlConfig
+<Perl>
+  $PerlConfig = "Alias /perl_sections_perlconfig_scalar1 @DocumentRoot@
+                 Alias /perl_sections_perlconfig_scalar2 @DocumentRoot@
+                ";
+</Perl>
+
[EMAIL PROTECTED]
+<Perl>
+  @PerlConfig = ("Alias /perl_sections_perlconfig_array1 @DocumentRoot@",
+                 "Alias /perl_sections_perlconfig_array2 @DocumentRoot@",
+                );
+</Perl>
+

Modified: perl/modperl/trunk/t/response/TestDirective/perldo.pm
URL: 
http://svn.apache.org/viewvc/perl/modperl/trunk/t/response/TestDirective/perldo.pm?rev=422774&r1=422773&r2=422774&view=diff
==============================================================================
--- perl/modperl/trunk/t/response/TestDirective/perldo.pm (original)
+++ perl/modperl/trunk/t/response/TestDirective/perldo.pm Mon Jul 17 11:03:02 
2006
@@ -4,6 +4,7 @@
 use warnings FATAL => 'all';
 
 use Apache::Test;
+use Apache::TestRequest;
 use Apache::TestUtil;
 use Apache2::Const -compile => 'OK';
 use Apache2::PerlSections;
@@ -11,7 +12,7 @@
 sub handler {
     my $r = shift;
 
-    plan $r, tests => 17;
+    plan $r, tests => 22;
 
     ok t_cmp('yes', $TestDirective::perl::worked);
 
@@ -57,6 +58,16 @@
     my $bport = $TestDirective::perl::base_server->port;
     my $vport = $TestDirective::perl::vhost_server->port;
     ok defined $bport && defined $vport && $vport != $bport;
+    
+    foreach my $url (qw(scalar scalar1 scalar2)) {
+        my $res = GET "/perl_sections_perlconfig_$url/";
+        ok t_cmp($res->is_success, 1, '$PerlConfig');
+    }
+    
+    foreach my $url (qw(array1 array2)) {
+        my $res = GET "/perl_sections_perlconfig_$url/";
+        ok t_cmp($res->is_success, 1, '@PerlConfig');
+    }
     
     Apache2::Const::OK;
 }