From: Alexey Tourbin <at@altlinux.ru>
Date: Fri, 3 Dec 2004 05:06:49 +0000 (+0300)
Subject: Re: B::walkoptree segfaults
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd3e1c90041b1d5e39a823b0e7f47196cd71ae46;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;