Deparse: avoid deep recursion warning

sub _pessimise_walk_exe() recursively walks the optree, so can easily
exceed a depth of 100.

diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
index e482810..8e94ee6 100644 (file)
--- a/lib/B/Deparse.pm
+++ b/lib/B/Deparse.pm
@@ -438,6 +438,8 @@ sub _pessimise_walk {
 sub _pessimise_walk_exe {
     my ($self, $startop, $visited) = @_;
 
+    no warnings 'recursion';
+
     return unless $$startop;
     return if $visited->{$$startop};
     my ($op, $prevop);