X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FB%2FRecDeparse.pm;h=a9ace562920d0a516f32958bcc93b4f41f35e9a6;hb=055d88b751d7e3d19bb94c3d734bbfcedee19276;hp=c5c5fa9be3fa40732248c2fe3b6a65bb220a1a48;hpb=a9236ccc57c9b10c1bd1a28c0138be223461efe3;p=perl%2Fmodules%2FB-RecDeparse.git diff --git a/lib/B/RecDeparse.pm b/lib/B/RecDeparse.pm index c5c5fa9..a9ace56 100644 --- a/lib/B/RecDeparse.pm +++ b/lib/B/RecDeparse.pm @@ -9,7 +9,7 @@ use B (); use Config; -use base qw/B::Deparse/; +use base qw; =head1 NAME @@ -187,7 +187,7 @@ sub pp_gv { $body = $self->SUPER::pp_gv(@_); } else { $body = do { - local @{$self}{qw/brd_sub brd_cur/} = (0, $self->{brd_cur} + 1); + local @{$self}{qw} = (0, $self->{brd_cur} + 1); local $seen->{$name} = 1; 'sub ' . $self->indent($self->deparse_sub($gv->CV)); }; @@ -246,7 +246,7 @@ Tests code coverage report is available at L