[dw-free] fix warning in LJ::Session

[fu]

[commit: http://hg.dwscoalition.org/dw-free/rev/b7cc5145da60]

http://bugs.dwscoalition.org/show_bug.cgi?id=3975

Fix warning in LJ::Session.

Patch by kareila.

Files modified:

• cgi-bin/LJ/Session.pm

--------------------------------------------------------------------------------
diff -r 451c5db8e7ac -r b7cc5145da60 cgi-bin/LJ/Session.pm
--- a/cgi-bin/LJ/Session.pm	Tue Oct 18 19:08:17 2011 +0800
+++ b/cgi-bin/LJ/Session.pm	Tue Oct 18 19:42:48 2011 +0800
@@ -778,7 +778,7 @@
     my $r = BML::get_request();
     my $args = $r->args;
     my $args_wq = $args ? "?$args" : "";
-    my $host = $r->headers_in->{Host};
+    my $host = $r->headers_in->{Host} || '';
     my $uri = $r->uri;
     return "http://$host$uri$args_wq";
 }
--------------------------------------------------------------------------------