Conditional breakpoints

Message-ID: <20010527102942.J711@blackrider.blackstar.co.uk>

p4raw-id: //depot/perl@10322

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index ab68bd5..ef1f89b 100644 (file)
--- 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;