From 586b0d7df6c91e7e6a25288bce7e964b25d1e0fe Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 12 Mar 2002 00:32:20 +0100 Subject: [PATCH] B::Xref improvements Message-Id: <20020311233220.A12677@rafael> p4raw-id: //depot/perl@15188 --- ext/B/B/Xref.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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); -- 2.7.4