X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FB-RecDeparse.git;a=blobdiff_plain;f=lib%2FB%2FRecDeparse.pm;h=213b640ba6570858c34a5ffaa91983595263b06f;hp=c5c5fa9be3fa40732248c2fe3b6a65bb220a1a48;hb=f0596ac13a537630fc7421d5d21249a603bd0375;hpb=a9236ccc57c9b10c1bd1a28c0138be223461efe3

diff --git a/lib/B/RecDeparse.pm b/lib/B/RecDeparse.pm
index c5c5fa9..213b640 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<B::Deparse>;
 
 =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<brd_sub brd_cur>} = (0, $self->{brd_cur} + 1);
    local $seen->{$name} = 1;
    'sub ' . $self->indent($self->deparse_sub($gv->CV));
   };