diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Locale/Maketext/Simple.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Locale/Maketext/Simple.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Locale/Maketext/Simple.pm b/Master/tlpkg/tlperl/lib/Locale/Maketext/Simple.pm index 30760f3c26d..9e61670802e 100644 --- a/Master/tlpkg/tlperl/lib/Locale/Maketext/Simple.pm +++ b/Master/tlpkg/tlperl/lib/Locale/Maketext/Simple.pm @@ -1,5 +1,5 @@ package Locale::Maketext::Simple; -$Locale::Maketext::Simple::VERSION = '0.21'; +$Locale::Maketext::Simple::VERSION = '0.21_01'; use strict; use 5.005; @@ -134,7 +134,12 @@ sub load_loc { my $pkg = join('::', grep { defined and length } $args{Class}, $args{Subclass}); return $Loc{$pkg} if exists $Loc{$pkg}; - eval { require Locale::Maketext::Lexicon; 1 } or return; + eval { + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; + require Locale::Maketext::Lexicon; + 1 + } or return; $Locale::Maketext::Lexicon::VERSION > 0.20 or return; eval { require File::Spec; 1 } or return; |