diff options
| author | David E. Wheeler <david@kineticode.com> | 2011-01-27 20:33:44 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-01-27 21:41:39 -0800 |
| commit | 364c63cff540b8186bf5b6dcf366e1270ba5020e (patch) | |
| tree | 64eae15283be9b77c3eba5af8d322c9d765dfde6 /dist/Locale-Maketext/lib/Locale | |
| parent | 7bd6b0e6531a2bf944362cebd59289d28c85309f (diff) | |
| download | perl-364c63cff540b8186bf5b6dcf366e1270ba5020e.tar.gz | |
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"
Diffstat (limited to 'dist/Locale-Maketext/lib/Locale')
| -rw-r--r-- | dist/Locale-Maketext/lib/Locale/Maketext.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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! |