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) {
$body = $self->SUPER::pp_gv(@_);
} else {
$body = do {