summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/I18N
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-04-18 23:10:57 +0000
committerKarl Berry <karl@freefriends.org>2017-04-18 23:10:57 +0000
commit40b4b6e177c62a14c166dbba6adf3abc415af4b2 (patch)
tree2996bf29509c806bd8064fb6cf38092c1b375ff8 /Master/tlpkg/tlperl/lib/I18N
parent8e743c86b6872f30b7a35c72aa944455157d4b3f (diff)
tlperl 5.24.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@43914 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/I18N')
-rw-r--r--Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm b/Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm
index f13d5460b32..a877fbfc7f7 100644
--- a/Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm
+++ b/Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm
@@ -11,7 +11,7 @@ use vars qw( @ISA $VERSION $MATCH_SUPERS $USING_LANGUAGE_TAGS
BEGIN { unless(defined &DEBUG) { *DEBUG = sub () {0} } }
# define the constant 'DEBUG' at compile-time
-$VERSION = "1.05";
+$VERSION = "1.05_01";
@ISA = ();
use I18N::LangTags qw(alternate_language_tags locale2language_tag);
@@ -145,6 +145,8 @@ sub _try_use { # Basically a wrapper around "require Modulename"
print " About to use $module ...\n" if DEBUG;
{
local $SIG{'__DIE__'};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
eval "require $module"; # used to be "use $module", but no point in that.
}
if($@) {