B-Xref-1.07_02: named anon subs

check the gv->CV if it is a CV

Author: rurban

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -17166,6 +17166,7 @@ for my $version ( sort { version_sort($a, $b) } keys %released ) {
             'Attribute::Handlers'   => '1.00_01',
             'B::C'                  => '1.55_08',
             'B::CC'                 => '1.16_02',
+            'B::Xref'               => '1.07_02',
             'ByteLoader'            => '1.12',
             'CPAN'                  => '2.20_01',
             'CPAN::Bundle'          => '5.5002',

ext/B/B/Xref.pm

@@ -1,6 +1,6 @@
 package B::Xref;
 
-our $VERSION = '1.07_01';
+our $VERSION = '1.07_02';
 
 =head1 NAME
 
@@ -76,7 +76,7 @@ A line number may be prefixed by a single letter:
 
 =item i
 
-Lexical variable introduced (declared with my()) for the first time.
+Lexical variable introduced (declared with my,our,state) for the first time.
 
 =item &
 
@@ -136,7 +136,7 @@ reported properly.
 
 =head1 AUTHOR
 
-Malcolm Beattie, [email protected].
+Malcolm Beattie C<retired>.
 
 =cut
 
@@ -379,7 +379,7 @@ sub pp_entersub {
 sub B::GV::xref {
     my $gv = shift;
     my $cv = $gv->CV;
-    if ($$cv) {
+    if ($$cv and ref $cv eq 'B::CV') {
 	#return if $done{$$cv}++;
 	$file = $gv->FILE;
 	$line = $gv->LINE;

pod/perlcdelta.pod

@@ -1094,9 +1094,9 @@ attributes correctly:
 
 Remove internal links to B::Debug
 
-=item L<B::Xref> 1.07_01
+=item L<B::Xref> 1.07_02
 
-Support sub refs
+Support sub refs, and named anon subs.
 
 =item L<base> 2.27c