Show
Ignore:
Timestamp:
10/21/08 14:11:26 (5 years ago)
Author:
tokuhirom
Message:

bug fix: use Host header!

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/ServerSimple.pm

    r18980 r21772  
    4848                }, 
    4949                handler    => sub { 
    50                     my $base = "http://$setup{localname}:$setup{localport}"; 
     50                    my $host = $headers->header('Host') || $setup{localname}; 
     51                    my $base = "http://${host}:$setup{localport}"; 
    5152                    my $request_uri = $setup{request_uri}; 
    5253                    $request_uri = '/' if $request_uri =~ m!^https?://!i;