From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 25 Apr 2006 12:51:40 +0000 (+0000)
Subject: Coverity has started to notice another inconsistency in our NULL
X-Git-Tag: upstream/5.16.3~17838
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6482a30d2bd2742fb2541ea75066fbd5044cc1f8;p=platform%2Fupstream%2Fperl.git

Coverity has started to notice another inconsistency in our NULL
pointer checking.

p4raw-id: //depot/perl@27959
---

diff --git a/pp_ctl.c b/pp_ctl.c
index c3bc78124a..5e44789b95 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2995,7 +2995,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq)
     DEBUG_x(dump_eval());
 
     /* Register with debugger: */
-    if (PERLDB_INTER && saveop->op_type == OP_REQUIRE) {
+    if (PERLDB_INTER && saveop && saveop->op_type == OP_REQUIRE) {
 	CV * const cv = get_cv("DB::postponed", FALSE);
 	if (cv) {
 	    dSP;