This is an OpenPGP/MIME signed message (RFC 2440 and 3156)
--------------enig7DC207B510E031609A19343F
Content-Type: multipart/mixed;
boundary="------------080008090800000105050109"

This is a multi-part message in MIME format.
--------------080008090800000105050109
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Geoffrey Young wrote:
>> > this patch seems to have stalled:

>>
>> > http://marc2.theaimsgroup.com/?l=3Da...&m=3D11402187=

9222434&w=3D2
>>
>> > can you give it a whirl and see if it fixes things?

>>
>> Thanks!
>>
>> It doesn't fix the bug I reported.
>>
>> But it brings me closer to a workaround. It allows me to write the
>> pretty weird looking config file:
>>
>>
>> @PerlConfig =3D split /\n/, < >> Alias /ping/ /tmp/ping/
>>
>>

>> EOC
>>

>>
>> Before the patch I had no success with @PerlConfig, so apparently
>> Frank's patch fixes @PerlConfig.
>>
>> For the bug I am reporting, there's something missing to split config
>> lines into single directives.

>=20
> ok, thanks for trying
>=20
> I'm including gozer here, since he is the main PerlConfig guy - I
> wouldn't want to step on his toes trying to implement a fix for this
> issue. but it we harp on him he will probably have an answer in a
> matter of seconds


Slightly longer than a few seconds, but here is a patch that will probabl=
y
fix this issue as well as the the one linked to.

> separately, we're going to need to ping you for apml maint, um, now


Hu? What's that about ?

-------------------------------------------------------------------------=
-------
Philippe M. Chiasson m/gozer\@(apache|cpan|ectoplasm)\.org/ GPG KeyID : 8=
8C3A5A5
http://gozer.ectoplasm.org/ F9BF E0C2 480E 7680 1AE5 3631 CB32 A107 8=
8C3A5A5

--------------080008090800000105050109
Content-Type: text/x-patch;
name="perl_config.patch"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline;
filename="perl_config.patch"

Index: t/conf/extra.last.conf.in
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3 D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3 D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3 D
--- t/conf/extra.last.conf.in (revision 420603)
+++ t/conf/extra.last.conf.in (working copy)
@@ -111,3 +111,23 @@
Perl 1


+
+#Single-line $PerlConfig
+
+ $PerlConfig =3D "Alias /perl_sections_perlconfig_scalar @DocumentRoot@=
";
+

+
+#Multi-line $PerlConfig
+
+ $PerlConfig =3D "Alias /perl_sections_perlconfig_scalar1 @DocumentRoot=
@
+ Alias /perl_sections_perlconfig_scalar2 @DocumentRoot@
+ ";
+

+
+#@PerlConfig
+
+ @PerlConfig =3D ("Alias /perl_sections_perlconfig_array1 @DocumentRoot=
@",
+ "Alias /perl_sections_perlconfig_array2 @DocumentRoot@"=
,
+ );
+

+
Index: t/response/TestDirective/perldo.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3 D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3 D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3 D
--- t/response/TestDirective/perldo.pm (revision 420603)
+++ t/response/TestDirective/perldo.pm (working copy)
@@ -4,6 +4,7 @@
use warnings FATAL =3D> 'all';
=20
use Apache::Test;
+use Apache::TestRequest;
use Apache::TestUtil;
use Apache2::Const -compile =3D> 'OK';
use Apache2::PerlSections;
@@ -11,7 +12,7 @@
sub handler {
my $r =3D shift;
=20
- plan $r, tests =3D> 17;
+ plan $r, tests =3D> 22;
=20
ok t_cmp('yes', $TestDirective:erl::worked);
=20
@@ -58,6 +59,16 @@
my $vport =3D $TestDirective:erl::vhost_server->port;
ok defined $bport && defined $vport && $vport !=3D $bport;
=20
+ foreach my $url (qw(scalar scalar1 scalar2)) {
+ my $res =3D GET "/perl_sections_perlconfig_$url/";
+ ok t_cmp($res->is_success, 1, '$PerlConfig');
+ }
+ =20
+ foreach my $url (qw(array1 array2)) {
+ my $res =3D GET "/perl_sections_perlconfig_$url/";
+ ok t_cmp($res->is_success, 1, '@PerlConfig');
+ }
+ =20
Apache2::Const::OK;
}
=20
Index: lib/Apache2/PerlSections.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3 D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3 D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3 D
--- lib/Apache2/PerlSections.pm (revision 420603)
+++ lib/Apache2/PerlSections.pm (working copy)
@@ -65,8 +65,11 @@
{
no strict 'refs';
foreach my $package ($self->package) {
- $self->dump_special(${"${package}::$special"},
- @{"${package}::$special"} );
+ my @config =3D map { split /\n/ }=20
+ grep { defined }=20
+ (@{"${package}::$special"},=20
+ ${"${package}::$special"});
+ $self->dump_special(@config);
}
}
=20
@@ -193,10 +196,12 @@
}
=20
sub add_config {
- my ($self, $config) =3D @_;
- return unless defined $config;
- chomp($config);
- push @{ $self->directives }, $config;
+ my ($self, @config) =3D @_;
+ foreach my $config (@config) {
+ return unless defined $config;
+ chomp($config);
+ push @{ $self->directives }, $config;
+ }
}
=20
sub post_config {

--------------080008090800000105050109--

--------------enig7DC207B510E031609A19343F
Content-Type: application/pgp-signature; name="signature.asc"
Content-Description: OpenPGP digital signature
Content-Disposition: attachment; filename="signature.asc"

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

iD8DBQFEsqiEyzKhB4jDpaURAxQDAKDIFP6Bb0lFbyZ8yG1JLy WgPPjn9gCfZiZD
dhHR7/wlACirEG8VDyqh5tg=
=Mej5
-----END PGP SIGNATURE-----

--------------enig7DC207B510E031609A19343F--