Commit 41500780 authored by Xavier Guimard's avatar Xavier Guimard

Fix warning

parent 51c6751b
...@@ -59,7 +59,7 @@ sub handler { ...@@ -59,7 +59,7 @@ sub handler {
return 1; return 1;
} }
); );
my $uri = URI->new( "http://" . $r->hostname . $r->unparsed_uri ); $uri = URI->new( "http://" . $r->hostname . $r->unparsed_uri );
$env->{PATH_INFO} = uri_unescape( $uri->path ); $env->{PATH_INFO} = uri_unescape( $uri->path );
my ( $host, $port ) = ( $r->dir_config('LLNG_SERVER') =~ /^(.*):(\d+)$/ ); my ( $host, $port ) = ( $r->dir_config('LLNG_SERVER') =~ /^(.*):(\d+)$/ );
unless ( $host and $port ) { unless ( $host and $port ) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment