Committer: sbelyaev
LJSUP-12359: not working redirect from Livejournal.sgU trunk/cgi-bin/LJ/Session.pm
Modified: trunk/cgi-bin/LJ/Session.pm =================================================================== --- trunk/cgi-bin/LJ/Session.pm 2012-05-28 11:44:01 UTC (rev 22077) +++ trunk/cgi-bin/LJ/Session.pm 2012-05-28 12:37:00 UTC (rev 22078) @@ -541,10 +541,10 @@ $host =~ s/^www\.//; - return wantarray ? ( '__external', "") : '__external' unless + return wantarray ? ( '__external', "") : '__external' if $host =~ m!^([\w\-\.]{1,50})\.\Q$LJ::USER_DOMAIN\E$! or exists $LJ::DOMAIN_JOURNALS_REVERSE{$host}; - my $subdomain = lc($1); + my $subdomain = lc($host); if ($LJ::SUBDOMAIN_FUNCTION{$subdomain} eq "journal") { return undef unless $path =~ m!^/(\w{1,15})\b!;