[livejournal] r21492: LJSUP-11586: Cannot open post from livej...

LJSUP-11586: Cannot open post from livejournal.sg

U   trunk/cgi-bin/LJ/Session.pm
U   trunk/cgi-bin/LJ/User.pm

Modified: trunk/cgi-bin/LJ/Session.pm
===================================================================
--- trunk/cgi-bin/LJ/Session.pm	2012-03-21 13:02:17 UTC (rev 21491)
+++ trunk/cgi-bin/LJ/Session.pm	2012-03-21 13:35:28 UTC (rev 21492)
@@ -543,7 +543,7 @@
     $host =~ s/^www\.//;
 
     return undef unless
-        $host =~ m!^([\w-\.]{1,50})\.\Q$LJ::USER_DOMAIN\E$! or exists $LJ::DOMAIN_JOURNALS_REVERSE{$host};
+        $host =~ m!^([\w\-\.]{1,50})\.\Q$LJ::USER_DOMAIN\E$! or exists $LJ::DOMAIN_JOURNALS_REVERSE{$host};
 
     my $subdomain = lc($1);
 

Modified: trunk/cgi-bin/LJ/User.pm
===================================================================
--- trunk/cgi-bin/LJ/User.pm	2012-03-21 13:02:17 UTC (rev 21491)
+++ trunk/cgi-bin/LJ/User.pm	2012-03-21 13:35:28 UTC (rev 21492)
@@ -298,8 +298,7 @@
 ## Input: domain (e.g. 'news.independent.livejournal.com' or 'some.site.domain.com')
 ## Output: LJ::User object or undef
 sub new_from_external_domain {
-    my $class = shift;
-    my $host = shift;
+    my( $class, $host ) = @_;
 
     $host = lc($host);
     $host =~ s/^www\.//;