From 364c63cff540b8186bf5b6dcf366e1270ba5020e Mon Sep 17 00:00:00 2001 From: "David E. Wheeler" Date: Thu, 27 Jan 2011 20:33:44 -0800 Subject: Suppress "Name used only once" warnings. From Locale::Maketext and I18N::LangTags::Detect. To replicate, run perl -Idist/Locale-Maketext/lib -Icpan/IPC-Cmd/lib -Idist/I18N-LangTags/lib -we "use IPC::Cmd" --- dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm | 1 + dist/Locale-Maketext/lib/Locale/Maketext.pm | 1 + 2 files changed, 2 insertions(+) (limited to 'dist') diff --git a/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm b/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm index 87280b7b51..e767aacb09 100644 --- a/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm +++ b/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm @@ -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! diff --git a/dist/Locale-Maketext/lib/Locale/Maketext.pm b/dist/Locale-Maketext/lib/Locale/Maketext.pm index 042ecf7f87..b429778507 100644 --- a/dist/Locale-Maketext/lib/Locale/Maketext.pm +++ b/dist/Locale-Maketext/lib/Locale/Maketext.pm @@ -439,6 +439,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! -- cgit v1.2.1