Use correct method.
Patch by fu.
diffs (12 lines):
diff -r 6fb01f07a7ae -r 47ef8a829f05 cgi-bin/LJ/S2/ReplyPage.pm
--- a/cgi-bin/LJ/S2/ReplyPage.pm Tue Oct 12 18:15:14 2010 +0800
+++ b/cgi-bin/LJ/S2/ReplyPage.pm Tue Oct 12 19:10:40 2010 +0800
@@ -90,7 +90,7 @@ sub ReplyPage
$comment = LJ::Comment->new($u, dtalkid => $editid);
unless ($remote) {
my $r = $opts->{'r'};
- my $host = $r->header_in("Host");
+ my $host = $r->headers_in->{Host};
my $uri = $r->uri;
my $args = scalar $r->args;
my $querysep = $args ? "?" : "";
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
