diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-08-28 10:28:28 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-08-28 10:28:28 -0700 |
| commit | 9d8e4b9b32800eb499d83442ce8bbe6639773936 (patch) | |
| tree | 13d44cae33d83657d312174f587829a65b932214 /util.c | |
| parent | db5cc3ee5bdb14c8d59302b6c3ef8ff4bca660bb (diff) | |
| download | perl-9d8e4b9b32800eb499d83442ce8bbe6639773936.tar.gz | |
Fix crash with lex subs under -d
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5350,10 +5350,10 @@ Perl_get_db_sub(pTHX_ SV **svp, CV *cv) if (!PERLDB_SUB_NN) { GV *gv = CvGV(cv); - if (!svp) { + if (gv && !svp) { gv_efullname3(dbsv, gv, NULL); } - else if ( (CvFLAGS(cv) & (CVf_ANON | CVf_CLONED)) + else if ( (CvFLAGS(cv) & (CVf_ANON | CVf_CLONED)) || !gv || strEQ(GvNAME(gv), "END") || ( /* Could be imported, and old sub redefined. */ (GvCV(gv) != cv || !S_gv_has_usable_name(aTHX_ gv)) |