Re: B::walkoptree segfaults

Message-ID: <20041203020649.GD3898@solemn.turbinal.org>

p4raw-id: //depot/perl@23651

diff --git a/ext/B/B.pm b/ext/B/B.pm
index bd6a60a..977cb41 100644 (file)
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -128,7 +128,7 @@ sub walkoptree_slow {
        }
        shift @parents;
     }
-    if (class($op) eq 'PMOP' && $op->pmreplroot && ${$op->pmreplroot}) {
+    if (class($op) eq 'PMOP' && ref($op->pmreplroot) && ${$op->pmreplroot}) {
        unshift(@parents, $op);
        walkoptree_slow($op->pmreplroot, $method, $level + 1);
        shift @parents;