fix language parser regex

322ce4c4 · Dietmar Maurer · 1fcc2d4b · 322ce4c4
Commit 322ce4c4 authored Mar 14, 2012 by Dietmar Maurer
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

index.pl www/manager/index.pl +1 -1

No files found.
--- a/www/manager/index.pl
+++ b/www/manager/index.pl
@@ -32,7 +32,7 @@ my $token = 'null';
 if (my $cookie = $r->headers_in->{Cookie}) {

    if (my $newlang = ($cookie =~ /(?:^|\s)PVELangCookie=([^;]*)/)[0]) {
-	if ($newlang =~ m/^[a-z]{2,3}(_A-Z{2,3})?$/) {
+	if ($newlang =~ m/^[a-z]{2,3}(_[A-Z]{2,3})?$/) {
 	    $lang = $newlang;
 	}
    }