At 1:20 PM -0700 10/6/03, Stas Bekman wrote:
Matisse Enzer wrote:
[...]
sub handler { warn "Port: ", $_[0]->get_server_port; $server->configure(@_); $server->SUPER::handler(@_); }
and got the wrong result.
Hmm, is $_[0] an Apache::RequestRec object? If it's a method handler, should that be $_[1]?
Yeah, the first argument to handler() is an Apache::RequestRec
This code:
sub handler { warn "arg 0 is: ", ref $_[0]; warn "Port is: ", $_[0]->get_server_port; $server->configure(@_); $server->SUPER::handler(@_); }
produces this in error_log when called via port 9000:
arg 0 is: Apache::RequestRec at /usr/lib/perl5/site_perl/5.8.0/Apache/XMLRPC/Lite.pm line 23.
Port is: 80 at /usr/lib/perl5/site_perl/5.8.0/Apache/XMLRPC/Lite.pm line 24.
OK, so if you get to reproduce it with the first line before any Apache/XMLRPC/Lite code kicks in, why you can't with a simple standalone test? You can try to strip chunks of that code till you get to the moment it produces the correct answer. Also what's the relevant config section looks like (including the vhost setup)?
__________________________________________________________________ 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