diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-05-27 11:29:43 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 13:37:56 +0000 |
| commit | 2526eab871b5e504cc8645d558fcc31f5c6fe1d8 (patch) | |
| tree | 5d4992adb6e4aafc42f72b666767d78a566a1b4c /lib | |
| parent | 516a5887ee93ac51c15492c01bb2e52bafd5bfaf (diff) | |
| download | perl-2526eab871b5e504cc8645d558fcc31f5c6fe1d8.tar.gz | |
Conditional breakpoints
Message-ID: <20010527102942.J711@blackrider.blackstar.co.uk>
p4raw-id: //depot/perl@10322
Diffstat (limited to 'lib')
| -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; |