Doc tweaks.

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

diff --git a/pod/perllexwarn.pod b/pod/perllexwarn.pod
index fd4b025..7b3ce3c 100644 (file)
--- a/pod/perllexwarn.pod
+++ b/pod/perllexwarn.pod
@@ -285,6 +285,8 @@ The current hierarchy is:
        |
        +- taint
        |
+       +- threads
+       |
        +- uninitialized
        |
        +- unpack
@@ -371,8 +373,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" ; 
         }
     }