example in pod/perllexwarn.pod

   Message-Id: <200204081412.g38ECqkX049116@vran.herceg.de>

p4raw-id: //depot/perl@15804

diff --git a/pod/perllexwarn.pod b/pod/perllexwarn.pod
index fd4b025..0edb2bc 100644 (file)
--- a/pod/perllexwarn.pod
+++ b/pod/perllexwarn.pod
@@ -371,8 +371,9 @@ Consider the module C<MyMod::Abc> below.
 
     sub open {
         my $path = shift ;
-        if (warnings::enabled() && $path !~ m#^/#) {
-            warnings::warn("changing relative path to /tmp/");
+        if ($path !~ m#^/#) {
+            warnings::warn("changing relative path to /tmp/")
+                if warnings::enabled();
             $path = "/tmp/$path" ; 
         }
     }