diff options
| -rw-r--r-- | lib/perl5db.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index ab68bd5eab..ef1f89b568 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -2749,6 +2749,7 @@ sub CvGV_name { sub CvGV_name_or_bust { my $in = shift; return if $skipCvGV; # Backdoor to avoid problems if XS broken... + return unless ref $in; $in = \&$in; # Hard reference... eval {require Devel::Peek; 1} or return; my $gv = Devel::Peek::CvGV($in) or return; |