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.



-- ------------------------------------------ Matisse Enzer Doodlelab Inc. 415-925-5294 ext. 212 (office) 415-225-6703 (mobile)

Reply via email to