[Catalyst][Engine][CGI][perl]
Catalyst::Engine::CGIに「using_frontend_proxy」 とかいう設定があることについさっき気づいた。
124 PROXY_CHECK: 125 { 126 unless ( $c->config->{using_frontend_proxy} ) { 127 last PROXY_CHECK if $host !~ /localhost|127.0.0.1/; 128 last PROXY_CHECK if $c->config->{ignore_frontend_proxy}; 129 } 130 last PROXY_CHECK unless $ENV{HTTP_X_FORWARDED_HOST}; 131 132 $host = $ENV{HTTP_X_FORWARDED_HOST}; 133 134 # backend could be on any port, so 135 # assume frontend is on the default port 136 $port = $c->request->secure ? 443 : 80; 137 }