diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/I18N/LangTags/Detect.pm | 3 |
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! |