Fix regexp

audreyt · Oct 15, 2010 · 650ae88 · 650ae88
1 parent c873e50
commit 650ae88
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/App/I18N/Command/Auto.pm b/lib/App/I18N/Command/Auto.pm
@@ -105,8 +105,8 @@ sub run {
 
     my $from_lang_s = $from_lang;
     my $to_lang_s = $to_lang;
-    ($from_lang_s) = ( $from_lang  =~ m{^([a-z]+)(_\w+)} );
-    ($to_lang_s)   = ( $to_lang    =~ m{^([a-z]+)(_\w+)} );
+    ($from_lang_s) = ( $from_lang  =~ m{^([a-z]+)(_\w+)?} );
+    ($to_lang_s)   = ( $to_lang    =~ m{^([a-z]+)(_\w+)?} );
 
     REST::Google::Translate->http_referer('http://google.com');