don't crash with -d if DB::DB is seen but not defined [perl #114990]

1 files changed, 4 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index ce882209ce..e857ad451b 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1960,7 +1960,10 @@ PP(pp_dbstate)
 	const I32 gimme = G_ARRAY;
 	U8 hasargs;
 	GV * const gv = PL_DBgv;
-	CV * const cv = GvCV(gv);
+	CV * cv = NULL;
+
+        if (gv && isGV_with_GP(gv))
+            cv = GvCV(gv);
 
 	if (!cv)
 	    DIE(aTHX_ "No DB::DB routine defined");