Permalink
Browse files

Turn off $^W when calling B::Deparse.

  • Loading branch information...
1 parent f587d0b commit 0cc09d91d9107838845c9572cffb9cbb4c385723 @pjcj pjcj committed Jun 2, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Devel/Cover.pm
View
@@ -999,7 +999,7 @@ sub deparse
{
# Collect everything under here.
local ($File, $Line) = ($File, $Line);
- $deparse = eval { $Original{deparse}->($self, @_) };
+ $deparse = eval { local $^W; $Original{deparse}->($self, @_) };
$deparse =~ s/^\010+//mg if defined $deparse;
$deparse = "Deparse error: $@" if $@;
# print STDERR "Collect Deparse $op $$op => <$deparse>\n";
@@ -1066,7 +1066,7 @@ sub deparse
else
{
local ($File, $Line) = ($File, $Line);
- $deparse = eval { $Original{deparse}->($self, @_) };
+ $deparse = eval { local $^W; $Original{deparse}->($self, @_) };
$deparse =~ s/^\010+//mg if defined $deparse;
$deparse = "Deparse error: $@" if $@;
# print STDERR "Deparse => <$deparse>\n";

0 comments on commit 0cc09d9

Please sign in to comment.