Matisse Enzer wrote:
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



Reply via email to