package B::RecDeparse;
-use 5.008;
+use 5.008001;
use strict;
use warnings;
my $gv = $self->gv_or_padgv($_[0]);
my $name = $gv->NAME;
+ my $cv = $gv->CV;
my $seen = $self->{brd_seen};
my $body;
- if (!$self->{brd_sub} or !$self->_recurse or $seen->{$name}) {
+ 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