diff options
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x | lib/diagnostics.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 78bf4457cb..f74e7352e4 100755 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -274,7 +274,7 @@ if (eof(POD_DIAG)) { $transmo = <<EOFUNC; sub transmo { - local \$^W = 0; # recursive warnings we do NOT need! + #local \$^W = 0; # recursive warnings we do NOT need! study; EOFUNC @@ -371,7 +371,7 @@ if ($standalone) { sub import { shift; - $old_w = $^W; + #$old_w = $^W; $^W = 1; # yup, clobbered the global variable; tough, if you # want diags, you want diags. return if $SIG{__WARN__} eq \&warn_trap; @@ -407,7 +407,7 @@ sub enable { &import } sub disable { shift; - $^W = $old_w; + #$^W = $old_w; return unless $SIG{__WARN__} eq \&warn_trap; $SIG{__WARN__} = $oldwarn; $SIG{__DIE__} = $olddie; |