diff options
author | Karl Berry <karl@freefriends.org> | 2019-03-10 21:56:14 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2019-03-10 21:56:14 +0000 |
commit | e0a2a718e89f9700d627f1e6a8eea8f21d2fbeb8 (patch) | |
tree | 39972f65008b0d70f306a5f976494d29411bc41e /Master/tlpkg/tlperl/lib/B/Xref.pm | |
parent | b206fdc77d81ed1600949062f08de5690a4bf66f (diff) |
tl19 perl 5.28.1 for Windows, from Siep
git-svn-id: svn://tug.org/texlive/trunk@50322 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/B/Xref.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/B/Xref.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/B/Xref.pm b/Master/tlpkg/tlperl/lib/B/Xref.pm index 255ee890bd5..000790a2694 100644 --- a/Master/tlpkg/tlperl/lib/B/Xref.pm +++ b/Master/tlpkg/tlperl/lib/B/Xref.pm @@ -1,6 +1,6 @@ package B::Xref; -our $VERSION = '1.06'; +our $VERSION = '1.07'; =head1 NAME @@ -143,7 +143,7 @@ Malcolm Beattie, mbeattie@sable.ox.ac.uk. use strict; use Config; use B qw(peekop class comppadlist main_start svref_2object walksymtable - OPpLVAL_INTRO SVf_POK OPpOUR_INTRO cstring + OPpLVAL_INTRO SVf_POK SVf_ROK OPpOUR_INTRO cstring ); sub UNKNOWN { ["?", "?", "?"] } @@ -331,7 +331,13 @@ sub pp_gv { } else { $gv = $op->gv; - $top = [$gv->STASH->NAME, "*", $gv->SAFENAME]; + if ($gv->FLAGS & SVf_ROK) { # sub ref + my $cv = $gv->RV; + $top = [$cv->STASH->NAME, '*', B::safename($cv->NAME_HEK)] + } + else { + $top = [$gv->STASH->NAME, '*', $gv->SAFENAME]; + } } process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used"); } |