From a293d0fd7883038d8dfef01528c7398ba246b5f9 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Fri, 4 Sep 2015 22:26:12 +0300
Subject: Tentative fix for RT#125350 - AFL detected crash.

---
 perly.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perly.c')

diff --git a/perly.c b/perly.c
index abb4d4e779..91b4c79886 100644
--- a/perly.c
+++ b/perly.c
@@ -213,7 +213,7 @@ S_clear_yystack(pTHX_  const yy_parser *parser)
 	if (yy_type_tab[yystos[ps->state]] == toketype_opval
 	    && ps->val.opval)
 	{
-	    if (ps->compcv != PL_compcv) {
+	    if (ps->compcv && (ps->compcv != PL_compcv)) {
 		PL_compcv = ps->compcv;
 		PAD_SET_CUR_NOSAVE(CvPADLIST(PL_compcv), 1);
 		PL_comppad_name = PadlistNAMES(CvPADLIST(PL_compcv));
-- 
cgit v1.2.1