diff options
author | Tony Cook <tony@develop-help.com> | 2015-09-14 14:32:07 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2015-10-12 14:55:52 +1100 |
commit | 4a21999a595cf89f78d57aa5b3fdf3fbfa638fb1 (patch) | |
tree | 852024f314be6fbf92c411103e12f8cc186698dc /lib/warnings.pm | |
parent | 3d8ff82557d67bc81d10600b537a57f90f401a4f (diff) | |
download | perl-4a21999a595cf89f78d57aa5b3fdf3fbfa638fb1.tar.gz |
[perl #126051] make the warnings::enabled example use warnings::enabled
7e6d00f88633 added the warnif() function and changed most uses of
warnings:enabled() to use warnif(), including this one. Revert
just that part.
Diffstat (limited to 'lib/warnings.pm')
-rw-r--r-- | lib/warnings.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/warnings.pm b/lib/warnings.pm index ba466a88b9..8d94724610 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -1015,8 +1015,10 @@ this snippet of code: package MyMod::Abc; sub open { - warnings::warnif("deprecated", - "open is deprecated, use new instead"); + if (warnings::enabled("deprecated")) { + warnings::warn("deprecated", + "open is deprecated, use new instead"); + } new(@_); } |