use Config;
-use base qw/B::Deparse/;
+use base qw<B::Deparse>;
=head1 NAME
$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));
};
=head1 COPYRIGHT & LICENSE
-Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010,2011 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.