Make the point a bit clearer after suggestion from Merijin

[p5sagit/p5-mst-13.2.git] / pod / perllexwarn.pod

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" ; 
         }
     }