You are viewing a plain text version of this content. The canonical link for it is here.
Posted to dev@perl.apache.org by "Philip M. Gollucci" <pg...@p6m7g8.com> on 2006/12/01 14:58:03 UTC
Re: mp2 test suite warnings
> [warn] The Alias directive in mod_perl at line 1 will probably never
> match because it overlaps an earlier Alias.
> [Fri Nov 24 16:08:18 2006] [warn] The Alias directive in mod_perl at
> line 1 will probably never match because it overlaps an earlier Alias.
> [Fri Nov 24 16:08:18 2006] [warn] The Alias directive in mod_perl at
> line 1 will probably never match because it overlaps an earlier Alias.
> [Fri Nov 24 16:08:18 2006] [warn] The Alias directive in mod_perl at
> line 1 will probably never match because it overlaps an earlier Alias.
> [Fri Nov 24 16:08:18 2006] [warn] The Alias directive in mod_perl at
> line 1 will probably never match because it overlaps an earlier Alias.
Via
PerlTrace d
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@'];
$Apache2::ReadConfig::Location{'/perl_sections_readconfig'} = {
'PerlInitHandler' => 'ModPerl::Test::add_config',
'AuthType' => 'Basic',
'AuthName' => 'PerlSection',
'PerlAuthenHandler' => 'TestHooks::authen_basic',
};
}
</Perl>
Causes these -- but I've no idea why --
$ grep perl_sections_readconfig *
t/conf/extra.last.conf.in: ['/perl_sections_readconfig',
'@DocumentRoot@'];
t/conf/extra.last.conf.in:
$Apache2::ReadConfig::Location{'/perl_sections_readconfig'} = {
t/conf/extra.last.conf: ['/perl_sections_readconfig',
'/usr/home/pgollucci/dev/compile/freebsd-6.1-release-p10/4.1.0/mod_perl/r480905-bleed-2.2.3-prefork/t/htdocs'];
t/conf/extra.last.conf:
$Apache2::ReadConfig::Location{'/perl_sections_readconfig'} = {
t/directive/perl.t:
"/perl_sections_readconfig/index.html") {
svn annotate t/conf/extra.last.conf.in | grep perl_sections_readconfig
178236 stas ['/perl_sections_readconfig', '@DocumentRoot@'];
178236 stas
$Apache2::ReadConfig::Location{'/perl_sections_readconfig'} = {
http://svn.apache.org/viewvc?view=rev&revision=178236
--
------------------------------------------------------------------------
Philip M. Gollucci (pgollucci@p6m7g8.com) 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.
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mp2 test suite warnings [SOLVED]
Posted by "Philip M. Gollucci" <pg...@p6m7g8.com>.
Stas Bekman wrote:
> Philip M. Gollucci wrote:
>>> if (defined $val && defined *ENTRY{ARRAY}) {
>>> - push @{$self->{symbols}}, [$key, \@ENTRY];
>>> + unless (exists
>>> $directives_seen_back{"$key-$ENTRY[0]"}) {
>>> + $directives_seen_back{"$key-$ENTRY[0]"} = 1;
>>> + push @{$self->{symbols}}, [$key, \@ENTRY];
>>> + }
>>> }
>> It helps to use the correct variables. This is what happens at
>> 4:30am....
>>
>> And check it out, I'm even going to only have to commit this one once!
>>
>> http://svn.apache.org/viewvc?view=rev&revision=482625
Most likely..... Grumble....
The test suite definitely worked for me when I ran it through cause I
broke test 14 in this file originally, but then changed it so that this
one worked.
> not ok 18
> # testing : $PerlConfig
> # expected: 1
> # received:
> not ok 19
> # testing : $PerlConfig
> # expected: 1
> # received:
> not ok 20
> # testing : @PerlConfig
> # expected: 1
> # received:
> not ok 21
> # testing : @PerlConfig
> # expected: 1
> # received:
> not ok 22
--
------------------------------------------------------------------------
Philip M. Gollucci (pgollucci@p6m7g8.com) 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.
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mp2 test suite warnings [SOLVED]
Posted by Stas Bekman <st...@stason.org>.
Philip M. Gollucci wrote:
>> if (defined $val && defined *ENTRY{ARRAY}) {
>> - push @{$self->{symbols}}, [$key, \@ENTRY];
>> + unless (exists
>> $directives_seen_back{"$key-$ENTRY[0]"}) {
>> + $directives_seen_back{"$key-$ENTRY[0]"} = 1;
>> + push @{$self->{symbols}}, [$key, \@ENTRY];
>> + }
>> }
> It helps to use the correct variables. This is what happens at 4:30am....
>
> And check it out, I'm even going to only have to commit this one once!
>
> http://svn.apache.org/viewvc?view=rev&revision=482625
Cool! I'm not sure whether this is related, but now this test breaks:
t/directive/perldo....1..22
# Running under perl version 5.008007 for linux
# Current time local: Thu Dec 7 11:05:42 2006
# Current time GMT: Thu Dec 7 19:05:42 2006
# Using Test.pm version 1.25
# Using Apache/Test.pm version 1.30
# expected: yes
# received: yes
ok 1
# testing : __PACKAGE__
# expected: (?-xism:t::conf::extra_last_conf::line_\d+$)
# received:
Apache2::ReadConfig::home::stas::apache_org::mp2_svn::t::conf::extra_last_conf::line_32
ok 2
ok 3
ok 4
# expected: PerlSection
# received: PerlSection
ok 5
# testing : Tied %Location
# expected: TIED
# received: TIED
ok 6
# expected: yes
# received: yes
ok 7
# testing : $0
# expected: (?-xism:extra.last.conf)
# received: /home/stas/apache.org/mp2-svn/t/conf/extra.last.conf
ok 8
# testing : __FILE__
# expected: (?-xism:extra.last.conf)
# received: /home/stas/apache.org/mp2-svn/t/conf/extra.last.conf
ok 9
ok 10
# testing : $0
# expected: -e
# received: /home/stas/httpd/prefork/bin/httpd
ok 11
# testing : $0
# expected: (?i-xsm:httpd)
# received: /home/stas/httpd/prefork/bin/httpd
ok 12
# testing : Include
# expected: 1
# received: 1
ok 13
# testing : Apache2::PerlSections->dump
# expected: (?-xism:__END__)
# received: $Location{'/perl_sections_saved'} = {
# 'AuthName' => 'PerlSection'
# };
# $Location{'/tied'} = 'TIED';
# $Include = '/home/stas/apache.org/mp2-svn/t/conf/perlsection.conf';
# $Location{'/perl_sections_readconfig'} = {
# 'AuthType' => 'Basic',
# 'PerlAuthenHandler' =>
'TestHooks::authen_basic',
# 'AuthName' => 'PerlSection',
# 'PerlInitHandler' =>
'ModPerl::Test::add_config'
# };
# @PerlConfig = (
# 'Alias /perl_sections_perlconfig_scalar
/home/stas/apache.org/mp2-svn/t/htdocs'
# );
# @PerlConfig = (
# 'Alias /perl_sections_perlconfig_scalar1
/home/stas/apache.org/mp2-svn/t/htdocs',
# 'Alias /perl_sections_perlconfig_scalar2
/home/stas/apache.org/mp2-svn/t/htdocs'
# );
# @PerlConfig = (
# 'Alias /perl_sections_perlconfig_array1
/home/stas/apache.org/mp2-svn/t/htdocs',
# 'Alias /perl_sections_perlconfig_array2
/home/stas/apache.org/mp2-svn/t/htdocs'
# );
# 1;
# __END__
ok 14
# testing : PerlSections dump syntax check
# expected:
# received:
ok 15
# expected: (?-xism:perlsection.conf)
# received: /home/stas/apache.org/mp2-svn/t/conf/perlsection.conf
ok 16
ok 17
# testing : $PerlConfig
# expected: 1
# received:
not ok 18
# testing : $PerlConfig
# expected: 1
# received:
not ok 19
# testing : $PerlConfig
# expected: 1
# received:
not ok 20
# testing : @PerlConfig
# expected: 1
# received:
not ok 21
# testing : @PerlConfig
# expected: 1
# received:
not ok 22
FAILED tests 18-22
Failed 5/22 tests, 77.27% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/directive/perldo.t 22 5 22.73% 18-22
Failed 1/1 test scripts, 0.00% okay. 5/22 subtests failed, 77.27% okay.
server foobar.mailchannels.com:8529 shutdown
error running tests (please examine t/logs/error_log)
--
_____________________________________________________________
Stas Bekman mailto:stas@stason.org http://stason.org/
MailChannels: Reliable Email Delivery http://mailchannels.com
The "Practical mod_perl" book http://modperlbook.org/
http://www.linkedin.com/in/stasbekman http://perl.apache.org/
http://stason.org/photos/gallery/ [* best photos here *]
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mp2 test suite warnings [SOLVED]
Posted by "Philip M. Gollucci" <pg...@p6m7g8.com>.
> if (defined $val && defined *ENTRY{ARRAY}) {
> - push @{$self->{symbols}}, [$key, \@ENTRY];
> + unless (exists $directives_seen_back{"$key-$ENTRY[0]"}) {
> + $directives_seen_back{"$key-$ENTRY[0]"} = 1;
> + push @{$self->{symbols}}, [$key, \@ENTRY];
> + }
> }
It helps to use the correct variables. This is what happens at 4:30am....
And check it out, I'm even going to only have to commit this one once!
http://svn.apache.org/viewvc?view=rev&revision=482625
--
------------------------------------------------------------------------
Philip M. Gollucci (pgollucci@p6m7g8.com) 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.
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mp2 test suite warnings
Posted by "Philip M. Gollucci" <pg...@p6m7g8.com>.
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 (pgollucci@p6m7g8.com) 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.