Change 23651 by [EMAIL PROTECTED] on 2004/12/14 12:17:25
Subject: Re: B::walkoptree segfaults
From: Alexey Tourbin <[EMAIL PROTECTED]>
Date: Fri, 3 Dec 2004 05:06:49 +0300
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/B/B.pm#62 edit
Differences ...
==== //depot/perl/ext/B/B.pm#62 (text) ====
Index: perl/ext/B/B.pm
--- perl/ext/B/B.pm#61~23500~ Tue Nov 16 02:49:35 2004
+++ perl/ext/B/B.pm Tue Dec 14 04:17:25 2004
@@ -128,7 +128,7 @@
}
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;
End of Patch.
