From: Steve Peters <steve@fisharerojo.org>
Date: Sat, 11 Mar 2006 21:41:20 +0000 (+0000)
Subject: Possible NULL pointer reference found by Coverity checks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=06dc7ac6fa597f9446b4a27a32d667bbcbde0453;p=p5sagit%2Fp5-mst-13.2.git

Possible NULL pointer reference found by Coverity checks.

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

diff --git a/op.c b/op.c
index 9f91361..51f962a 100644
--- a/op.c
+++ b/op.c
@@ -4237,10 +4237,10 @@ Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP *expr, OP *block)
 		break;
 
 	      case OP_SASSIGN:
-		if (k1->op_type == OP_READDIR
+		if (k1 && (k1->op_type == OP_READDIR
 		      || k1->op_type == OP_GLOB
 		      || (k1->op_type == OP_NULL && k1->op_targ == OP_GLOB)
-		      || k1->op_type == OP_EACH)
+		      || k1->op_type == OP_EACH))
 		    expr = newUNOP(OP_DEFINED, 0, expr);
 		break;
 	    }