diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2009-12-29 08:16:24 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-01-03 15:45:40 +0100 |
| commit | 252143cdf7e8cbc8993bacb85f05a8b3df8685d6 (patch) | |
| tree | 12ca7c37a3144cdddfef3fba03d4a5ce9cd47528 /lib/UNIVERSAL.pm | |
| parent | ac1cbfb08dc1370fbe2937f6bdd95a86fa70bce4 (diff) | |
| download | perl-252143cdf7e8cbc8993bacb85f05a8b3df8685d6.tar.gz | |
dial back warnings on UNIVERSAL->import
still warn on UNIVERSAL->import(@args)
do not warn on UNIVERSAL->import; this means "use UNIVERSAL;" is
still accepted without warning (for better or worse)
Diffstat (limited to 'lib/UNIVERSAL.pm')
| -rw-r--r-- | lib/UNIVERSAL.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/UNIVERSAL.pm b/lib/UNIVERSAL.pm index 5e3c8c833c..64224e5122 100644 --- a/lib/UNIVERSAL.pm +++ b/lib/UNIVERSAL.pm @@ -15,6 +15,7 @@ require Exporter; # anything unless called on UNIVERSAL. sub import { return unless $_[0] eq __PACKAGE__; + return unless @_ > 1; require warnings; warnings::warnif( 'deprecated', |