diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 0e4133798420..410b1331576a 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -8,7 +8,7 @@ use warnings; use Exporter 'import'; -our $VERSION = "1.009"; +our $VERSION = "1.010"; our @EXPORT_OK = qw( set_style set_style_standard add_callback concise_subref concise_cv concise_main add_style walk_output compile reset_sequence ); @@ -146,7 +146,7 @@ sub concise_stashref { : ref\$h->{$k} eq 'GLOB' ? *{$h->{$k}}{CODE} || next : next; reset_sequence(); - print "FUNC: *", $name, "::", $k, "\n"; + print $walkHandle "FUNC: *", $name, "::", $k, "\n"; my $codeobj = svref_2object($coderef); next unless ref $codeobj eq 'B::CV'; eval { concise_cv_obj($order, $codeobj, $k) }; diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index 58d010340491..e07b2e1fd740 100644 --- a/ext/B/t/concise.t +++ b/ext/B/t/concise.t @@ -10,7 +10,7 @@ BEGIN { require 'test.pl'; # we use runperl from 'test.pl', so can't use Test::More } -plan tests => 167; +plan tests => 168; require_ok("B::Concise"); @@ -513,4 +513,12 @@ like $out, qr/$end/, 'OP_AND->op_other points correctly'; is($hints[2], 'v:us,*,&,{,x*,x&,x$,$,fea=15', "hints[2]"); } +# test that walk_output() handle is used for stash member names +{ + sub Walked::foo {} + my $res = render('-basic', '-stash=Walked'); + like($res, qr/FUNC: \*Walked::foo/, + "check stash member name captured"); +} + __END__ diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 412acc5b0134..70251b600cdb 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -125,9 +125,10 @@ XXX Remove this section if F did not add any cont =item * -L has been upgraded from version A.xx to B.yy. +L has been upgraded from version 1.009 to 1.010. -XXX If there was something important to note about this change, include that here. +Send the function header generated by the C<-stash> option to the +configured walk handle. [GH #24024] =back