From: Father Chrysostomos Date: Thu, 12 Mar 2015 13:53:40 +0000 (-0300) Subject: Also handle srefgen ops X-Git-Tag: rt99809 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=8b6532775fb99753a27d550ae21411a18f82ef1f;p=perl%2Fmodules%2FB-RecDeparse.git Also handle srefgen ops So that \&foo is correctly deparsed on perl 5.21.5+. This fixes RT #99809. --- diff --git a/lib/B/RecDeparse.pm b/lib/B/RecDeparse.pm index 03c7eff..202cf78 100644 --- a/lib/B/RecDeparse.pm +++ b/lib/B/RecDeparse.pm @@ -190,6 +190,15 @@ sub pp_refgen { } } +sub pp_srefgen { + my $self = shift; + + return do { + local $self->{brd_sub} = 0; + $self->SUPER::pp_srefgen(@_); + } +} + sub pp_gv { my $self = shift; @@ -248,6 +257,10 @@ C =item * +C + +=item * + C =back diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t index 6117808..6b54d62 100644 --- a/t/92-pod-coverage.t +++ b/t/92-pod-coverage.t @@ -19,5 +19,6 @@ all_pod_coverage_ok({ pp_entersub pp_gv pp_refgen + pp_srefgen > ], });