This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Coverity has started to notice another inconsistency in our NULL
authorNicholas Clark <nick@ccl4.org>
Tue, 25 Apr 2006 12:51:40 +0000 (12:51 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 25 Apr 2006 12:51:40 +0000 (12:51 +0000)
pointer checking.

p4raw-id: //depot/perl@27959

pp_ctl.c

index c3bc781..5e44789 100644 (file)
--- 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;