package B::RecDeparse;
-use 5.008;
+use 5.008001;
use strict;
use warnings;
=head1 VERSION
-Version 0.04
+Version 0.07
=cut
-our $VERSION = '0.04';
+our $VERSION = '0.07';
=head1 SYNOPSIS
my $seen = $self->{brd_seen};
my $body;
- if (!$self->{brd_sub} or !$self->_recurse or $seen->{$name} or !$$cv) {
+ if (!$self->{brd_sub} or !$self->_recurse or $seen->{$name} or !$$cv
+ or !$cv->isa('B::CV') or $cv->ROOT->isa('B::NULL')) {
$body = $self->SUPER::pp_gv(@_);
} else {
$body = do {
=head1 DEPENDENCIES
+L<perl> 5.8.1.
+
L<Carp> (standard since perl 5), L<Config> (since perl 5.00307) and L<B::Deparse> (since perl 5.005).
=head1 AUTHOR
=head1 COPYRIGHT & LICENSE
-Copyright 2008,2009,2010,2011 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010,2011,2013 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.