Integrate with Sarathy.
[p5sagit/p5-mst-13.2.git] / lib / Fatal.pm
index 12fef27..5b832f6 100644 (file)
@@ -116,7 +116,7 @@ EOS
       no strict 'refs'; # to avoid: Can't use string (...) as a symbol ref ...
       $code = eval("package $pkg; use Carp; $code");
       die if $@;
-      local($^W) = 0;   # to avoid: Subroutine foo redefined ...
+      no warnings;   # to avoid: Subroutine foo redefined ...
       *{$sub} = $code;
     }
 }