mod_perl 2: $r->get_server_port returns wrong value under Apache::compat ??

[Matisse Enzer]

Title: mod_perl 2: $r->get_server_port returns wrong value un

I've got a server running on port 9000.

If I call  $r->get_server_port  in a PerlResponseHandler I get the correct value (9000), but if I call that in a method when Apache::XMLRPC::Lite is the PerlResponseHandler then I get port 80, no matter what the actual port is.

Apache::XMLRPC::Lite requires Apache::Compat to work, and I'm wondering if Apache::compat could be messing up what get_server_port returns?

I'm going to look into the code for Apache::XMLRPC::Lite and Apache::compat to see if one of these is the culprit, and I'd appreciate advice about what kind of thing I should be looking for.

I'm running Apache/2.0.47 (Unix) mod_perl/1.99_10 Perl/v5.8.0

-- 

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