[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.

diff --git a/lib/warnings.pm b/lib/warnings.pm
index ba466a8..8d94724 100644 (file)
--- 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(@_);
     }
 

diff --git a/regen/warnings.pl b/regen/warnings.pl
index 6a07493..18f337e 100644 (file)
--- a/regen/warnings.pl
+++ b/regen/warnings.pl
@@ -1144,8 +1144,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(@_);
     }