diff options
| -rwxr-xr-x | lib/Travelynx.pm | 10 | ||||
| -rw-r--r-- | lib/Travelynx/Helper/Locales.pm | 12 |
2 files changed, 16 insertions, 6 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index 8ec1353..2ed573d 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -447,9 +447,13 @@ sub startup { } } - # de-DE is our fall-back language and thus always appended - return Travelynx::Helper::Locales->get_handle( @languages, - 'de-DE' ); + my $handle = Travelynx::Helper::Locales->get_handle(@languages); + my $fallback_handle + = Travelynx::Helper::Locales->get_handle('de-DE'); + + $handle->fail_with( + sub { $fallback_handle->maketext( @_[ 1 .. $#_ ] ) } ); + return $handle; } ); diff --git a/lib/Travelynx/Helper/Locales.pm b/lib/Travelynx/Helper/Locales.pm index 3781bcd..d5ccb71 100644 --- a/lib/Travelynx/Helper/Locales.pm +++ b/lib/Travelynx/Helper/Locales.pm @@ -3,11 +3,17 @@ package Travelynx::Helper::Locales; use strict; use warnings; +#BEGIN { package Locale::Maketext; sub DEBUG() {1} }; +#BEGIN { package Locale::Maketext::Guts; sub DEBUG() {1} }; + use base qw(Locale::Maketext); -our %Lexicon = ( - _AUTO => 1, -); +# Uncomment this to show raw strings for untranslated content rather than +# falling back to German. + +#our %Lexicon = ( +# _AUTO => 1, +#); use Locale::Maketext::Lexicon { _decode => 1, |