From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 29 Nov 2001 22:46:12 +0000 (+0100)
Subject: Re: [ID 20011129.163] B::Xref- $top corrupt
X-Git-Tag: accepted/trunk/20130322.191538~29091
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=fdf1c2a96851c109301f03c196f94876286980ed;p=platform%2Fupstream%2Fperl.git

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