Re: [ID 20011129.163] B::Xref- $top corrupt

Message-ID: <20011129224612.A699@rafael>

p4raw-id: //depot/perl@13403

diff --git a/ext/B/B/Xref.pm b/ext/B/B/Xref.pm
index 1f3e247..1731b86 100644 (file)
--- a/ext/B/B/Xref.pm
+++ b/ext/B/B/Xref.pm
@@ -281,6 +281,7 @@ sub pp_const {
     }
     else {
        $top = $pad[$op->targ];
+       $top = UNKNOWN unless $top;
     }
 }