diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-10 15:03:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-10 15:03:10 +0000 |
| commit | ccafdc969fe8361303a07e7576d1af4e3e389a76 (patch) | |
| tree | c3293fc91f18c7cbb117b22c48f515a1ee701193 /pp_hot.c | |
| parent | 79e63f36d616e2a045841795af8be1361f55c9ed (diff) | |
| download | perl-ccafdc969fe8361303a07e7576d1af4e3e389a76.tar.gz | |
Fix [perl #34892] Segfault on &DB::sub declared but not defined
p4raw-id: //depot/perl@24215
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2672,8 +2672,8 @@ PP(pp_entersub) sv_setiv(PL_DBassertion, 1); cv = get_db_sub(&sv, cv); - if (!cv) - DIE(aTHX_ "No DBsub routine"); + if (!cv || (!CvXSUB(cv) && !CvSTART(cv))) + DIE(aTHX_ "No DB::sub routine defined"); } if (!(CvXSUB(cv))) { |