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

[Stas Bekman]

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