Change 34772 by [EMAIL PROTECTED] on 2008/11/08 03:03:26
Subject: [perl #18306] This problem seems to be fixed and a small patch
for B::Xref
From: [EMAIL PROTECTED]
Date: Wed, 9 Jul 2008 15:16:50 +0200 (CEST)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/B/B/Xref.pm#15 edit
Differences ...
==== //depot/perl/ext/B/B/Xref.pm#15 (text) ====
Index: perl/ext/B/B/Xref.pm
--- perl/ext/B/B/Xref.pm#14~15221~ 2002-03-14 05:51:17.000000000 -0800
+++ perl/ext/B/B/Xref.pm 2008-11-07 19:03:26.000000000 -0800
@@ -157,6 +157,7 @@
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];
End of Patch.
