From: Renee Baecker <renee.baecker@smart-websolutions.de>
Date: Wed, 9 Jul 2008 15:16:50 +0000 (+0200)
Subject: [perl #18306] This problem seems to be fixed and a small patch for B::Xref
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0da4e620e51724f93a1b86ba0ffc9e38f50abed;p=p5sagit%2Fp5-mst-13.2.git

[perl #18306] This problem seems to be fixed and a small patch for B::Xref
Message-Id: <20080709131650.D12BF120041@rserv16.sitepush.net>

p4raw-id: //depot/perl@34772
---

diff --git a/ext/B/B/Xref.pm b/ext/B/B/Xref.pm
index f727dc7..28bd74c 100644
--- a/ext/B/B/Xref.pm
+++ b/ext/B/B/Xref.pm
@@ -157,6 +157,7 @@ sub load_pad {
 	for ($ix = 1; $ix < @vallist; $ix++) {
 	    my $valsv = $vallist[$ix];
 	    next unless class($valsv) eq "GV";
+            next if class($valsv->STASH) eq 'SPECIAL';
 	    # these pad GVs don't have corresponding names, so same @pad
 	    # array can be used without collisions
 	    $pad[$ix] = [$valsv->STASH->NAME, "*", $valsv->NAME];