summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm b/Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm
index 87280b7b511..f13d5460b32 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.04";
+$VERSION = "1.05";
@ISA = ();
use I18N::LangTags qw(alternate_language_tags locale2language_tag);
@@ -136,6 +136,7 @@ sub _try_use { # Basically a wrapper around "require Modulename"
my $module = $_[0]; # ASSUME sane module name!
{ no strict 'refs';
+ no warnings 'once';
return($tried{$module} = 1)
if %{$module . "::Lexicon"} or @{$module . "::ISA"};
# weird case: we never use'd it, but there it is!