[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 (file)
--- 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];