diff options
| author | Renee Baecker <renee.baecker@smart-websolutions.de> | 2008-07-09 17:16:50 +0200 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-11-08 03:03:26 +0000 |
| commit | d0da4e620e51724f93a1b86ba0ffc9e38f50abed (patch) | |
| tree | 8d632408d3ac568dcdf9b21f951080b64f17a71c /ext | |
| parent | 36ba69bed1e95a0b9cecefedffd43bfd7548404d (diff) | |
| download | perl-d0da4e620e51724f93a1b86ba0ffc9e38f50abed.tar.gz | |
[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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Xref.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/B/B/Xref.pm b/ext/B/B/Xref.pm index f727dc766b..28bd74cd23 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]; |