From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 11 Mar 2002 23:32:20 +0000 (+0100)
Subject: B::Xref improvements
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=586b0d7df6c91e7e6a25288bce7e964b25d1e0fe;p=p5sagit%2Fp5-mst-13.2.git

B::Xref improvements
   Message-Id: <20020311233220.A12677@rafael>

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

diff --git a/ext/B/B/Xref.pm b/ext/B/B/Xref.pm
index d0cddbf..5ae19be 100644
--- a/ext/B/B/Xref.pm
+++ b/ext/B/B/Xref.pm
@@ -251,7 +251,7 @@ sub pp_gvsv {
     }
     else {
 	$gv = $op->gv;
-	$top = [$gv->STASH->NAME, '$', $gv->NAME];
+	$top = [$gv->STASH->NAME, '$', $gv->SAFENAME];
     }
     process($top, $op->private & OPpLVAL_INTRO ||
                   $op->private & OPpOUR_INTRO   ? "intro" : "used");
@@ -267,7 +267,7 @@ sub pp_gv {
     }
     else {
 	$gv = $op->gv;
-	$top = [$gv->STASH->NAME, "*", $gv->NAME];
+	$top = [$gv->STASH->NAME, "*", $gv->SAFENAME];
     }
     process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used");
 }
@@ -329,7 +329,8 @@ sub xref_definitions {
     return if $nodefs;
     $subname = "(definitions)";
     foreach $pack (qw(B O AutoLoader DynaLoader XSLoader Config DB VMS
-		      strict vars FileHandle Exporter Carp)) {
+		      strict vars FileHandle Exporter Carp PerlIO::Layer
+		      attributes utf8 warnings)) {
         $exclude{$pack."::"} = 1;
     }
     no strict qw(vars refs);