From 2526eab871b5e504cc8645d558fcc31f5c6fe1d8 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Sun, 27 May 2001 11:29:43 +0100
Subject: Conditional breakpoints Message-ID:
 <20010527102942.J711@blackrider.blackstar.co.uk>

p4raw-id: //depot/perl@10322
---
 lib/perl5db.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib')

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;
-- 
cgit v1.2.1