Changeset 11074

Timestamp:

03/11/10 12:38:14 (2 years ago)

Author:

Sewi

Message:

Fixed locale test errors

File:

• trunk/Padre/lib/Padre/Locale.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Locale.pm

@@ -522 +522 @@
     my $langcode = shift;
     undef $langcode if ref($langcode);
-    my $id     = rfc4646(@_);
+    my $id     = rfc4646($langcode);
     my $lang   = $RFC4646{$id}->{wxid};
-    my $locale = Wx::Locale->new($langcode);
+    my $locale = Wx::Locale->new($lang);
     $locale->AddCatalogLookupPathPrefix( Padre::Util::sharedir('locale') );
     unless ( $locale->IsLoaded($id) ) {