Change 15188 by ams@lustre on 2002/03/12 05:32:30
Subject: [PATCH ?] B::Xref improvements
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Mon, 11 Mar 2002 23:32:20 +0100
Message-Id: <20020311233220.A12677@rafael>
Affected files ...
.... //depot/perl/ext/B/B/Xref.pm#13 edit
Differences ...
==== //depot/perl/ext/B/B/Xref.pm#13 (text) ====
Index: perl/ext/B/B/Xref.pm
--- perl/ext/B/B/Xref.pm.~1~ Mon Mar 11 22:45:06 2002
+++ perl/ext/B/B/Xref.pm Mon Mar 11 22:45:06 2002
@@ -251,7 +251,7 @@
}
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 @@
}
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 @@
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);
End of Patch.
