thanks for the quick response.
Great. Not mp2, but Apache-Test (which is included in the mp2 distro). So
the
patch does solve the problem?
i did not try to apply the patch (i do not know of any tool to do it),
I've updated the patch for the current cvs source (the original one won't apply as is), I've attached it as ipv6.patch. To apply it run:
cd modperl-2.0 patch -p0 < ipv6.patch
Then test with:
t/TEST -clean make test
If that patch solves the problem, I'll apply it soonish.
[...]i changed the files manually to output a valid "Listen" directive.
here is the output and the log file for the failed test:
marina# rm t/logs/error_log marina# t/TEST -v modperl/request_rec_tie_api
modperl/request_rec_tie_api.1..3 not ok 1 # Failed test 1 in /usr/src/mod_perl-1.99_12/t/response/TestModperl/request_rec_tie_api.pm at line 36 # fileno STDOUT: 0 # testing : OPEN # expected: 1 # received: 1
this is the same problem we have on AIX, if you look at: t/response/TestModperl/request_rec_tie_api.pm. it has:
# XXX: on AIX 4.3.3 we get:
# STDIN STDOUT STDERR
# perl : 0 1 2
# mod_perl: 0 0 2
my $fileno = fileno STDOUT;
ok $fileno;
t_debug "fileno STDOUT: $fileno";so I suppose AIX 4.3.3 is not the only one and we may have a real problem here. Most people probably use perl built w/ perlio so they never encounter this problem. (whereas your perl has useperlio=undef)
Do you have mod_perl 1 installed? Can you test what this script prints:
print "Content-type: text/plain\n\n"; print "fileno(STDOUT): ", fileno(STDOUT);
since mp1 always ties STDOUT it'll be a good check.
__________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
Index: Apache-Test/lib/Apache/TestConfig.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
retrieving revision 1.204
diff -u -r1.204 TestConfig.pm
--- Apache-Test/lib/Apache/TestConfig.pm 31 Jan 2004 01:53:09 -0000 1.204
+++ Apache-Test/lib/Apache/TestConfig.pm 2 Feb 2004 06:47:45 -0000
@@ -1002,7 +1002,7 @@
my @out_config = ();
if ($self->{vhosts}->{$module}->{namebased} < 2) {
#extra config that should go *outside* the <VirtualHost ...>
- @out_config = ([Listen => $port]);
+ @out_config = ([Listen => $vars->{servername} . ':' . $port]);
if ($self->{vhosts}->{$module}->{namebased}) {
push @out_config => [NameVirtualHost => "*:$port"];
@@ -1750,7 +1750,7 @@
__DATA__
-Listen @Port@
+Listen @ServerName@:@Port@
ServerRoot "@ServerRoot@"
DocumentRoot "@DocumentRoot@"
Index: Apache-Test/lib/Apache/TestConfigPerl.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPerl.pm,v
retrieving revision 1.81
diff -u -r1.81 TestConfigPerl.pm
--- Apache-Test/lib/Apache/TestConfigPerl.pm 24 Nov 2003 07:57:30 -0000 1.81
+++ Apache-Test/lib/Apache/TestConfigPerl.pm 2 Feb 2004 06:47:45 -0000
@@ -207,7 +207,7 @@
sub set_connection_handler {
my($self, $module, $args) = @_;
my $port = $self->new_vhost($module);
- $self->postamble(Listen => $port);
+ $self->postamble(Listen => $self->{vars}->{servername} . ':' . $port);
}
my %add_hook_config = (
Index: t/response/TestApache/conftree.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/conftree.pm,v
retrieving revision 1.7
diff -u -r1.7 conftree.pm
--- t/response/TestApache/conftree.pm 8 Oct 2003 13:28:14 -0000 1.7
+++ t/response/TestApache/conftree.pm 2 Feb 2004 06:47:45 -0000
@@ -27,9 +27,9 @@
ok $tree;
- my $port = $tree->lookup('Listen');
+ my $listen = $tree->lookup('Listen');
- ok t_cmp($vars->{port}, $port);
+ ok t_cmp($vars->{servername} . ':' . $vars->{port}, $listen);
my $documentroot = $tree->lookup('DocumentRoot');
-- Reporting bugs: 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
