From: Michael G. Schwern <schwern@pobox.com>
Date: Sun, 27 May 2001 10:29:43 +0000 (+0100)
Subject: Conditional breakpoints
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2526eab871b5e504cc8645d558fcc31f5c6fe1d8;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;