Philip M. Gollucci wrote:
[warn] The Alias directive in mod_perl at line 1 will probably never
conf/extra.last.conf.in:
#Deprecated access to Apache2::ReadConfig:: still works
<Perl >
use Apache::Test ();
if (Apache::Test::have_module('mod_alias.c')) {
push @Apache2::ReadConfig::Alias,
['/perl_sections_readconfig', '@DocumentRoot@'];
lib/Apache2/Perlections::symdump() is at fault here, and I know why, but
I can't seem to fix it.
Basically each of the children that startup (5) call this function with
no memory of what it returned the previous times. The Base(Parent)
server doesn't generate a warning as its first.
I tried keeping a global "hack" %hash of directives (Aliases) that had
been seen. This worked, but it broke t/directive/perldo.t (test 14)
I thought it might have had something to do with ref counting and not
clearing now that I had the extra reference to, but
Scalar::Util::weaken() did not help.
Any great ideas ?
My attempted diff (which does fix it) but breaks a the later test is
attached.
--
------------------------------------------------------------------------
Philip M. Gollucci ([EMAIL PROTECTED]) 323.219.4708
Consultant / http://p6m7g8.net/Resume/resume.shtml
Senior Software Engineer - TicketMaster - http://ticketmaster.com
1024D/EC88A0BF 0DE5 C55C 6BF3 B235 2DAB B89E 1324 9B4F EC88 A0BF
I never had a dream come true
'Til the day that I found you.
Even though I pretend that I've moved on
You'll always be my baby.
I never found the words to say
You're the one I think about each day
And I know no matter where life takes me to
A part of me will always be...
A part of me will always be with you.
Index: lib/Apache2/PerlSections.pm
===================================================================
--- lib/Apache2/PerlSections.pm (revision 482613)
+++ lib/Apache2/PerlSections.pm (working copy)
@@ -79,6 +79,8 @@
Apache2::Const::OK;
}
+my %directives_seen_back;
+
sub symdump {
my ($self) = @_;
@@ -99,7 +101,10 @@
push @{$self->{symbols}}, [$key, $ENTRY];
}
if (defined $val && defined *ENTRY{ARRAY}) {
- push @{$self->{symbols}}, [$key, [EMAIL PROTECTED];
+ unless (exists $directives_seen_back{"$key-$ENTRY[0]"}) {
+ $directives_seen_back{"$key-$ENTRY[0]"} = 1;
+ push @{$self->{symbols}}, [$key, [EMAIL PROTECTED];
+ }
}
if (defined $val && defined *ENTRY{HASH} && $key !~ /::/) {
push @{$self->{symbols}}, [$key, \%ENTRY];
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
