[livejournal] r22078: LJSUP-12359: not working redirect from L...

U   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!;