diff options
author | Yorhel <git@yorhel.nl> | 2009-08-15 15:19:35 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2009-08-17 16:27:14 +0200 |
commit | 23ccb76f75433c49c79c7d45f0e7c9716251a4ab (patch) | |
tree | e4cb7503b72deff837a17dd55b3bb04644a4223f /lib/VNDB/L10N.pm | |
parent | c000490dcdf208e235a05358668dbb6fb70d5168 (diff) |
L10N: Russian TL for site title and main menu
Things are looking good so far.
Diffstat (limited to 'lib/VNDB/L10N.pm')
-rw-r--r-- | lib/VNDB/L10N.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/VNDB/L10N.pm b/lib/VNDB/L10N.pm index 5540c710..d71a72dc 100644 --- a/lib/VNDB/L10N.pm +++ b/lib/VNDB/L10N.pm @@ -12,6 +12,13 @@ use warnings; # be the same as in the languages hash in global.pl sub languages { ('en', 'ru') } + sub maketext { + my $r = eval { shift->SUPER::maketext(@_) }; + return $r if defined $r; + warn "maketext failed for '@_': $@\n"; + return $_[0]||''; # not quite sure we want this + } + # can be called as either a subroutine or a method sub loadfile { my %lang = ( @@ -60,7 +67,7 @@ use warnings; next; } # something we didn't expect - die "Don't know what to do with line $line\n"; + die "Don't know what to do with line $line\n" unless /^([a-z_-]{2,7})[ *]:/; } close $F; |