From: dgay@acm.org <dgay@acm.org>
Date: Thu, 28 Sep 2006 17:30:37 +0000 (-0700)
Subject: [perl #40427] Segfault in pack
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee790063445e363f16d5865913a74a9b6fe5cc39;p=p5sagit%2Fp5-mst-13.2.git

[perl #40427] Segfault in pack
From: dgay@acm.org (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.5.HEAD-31259-1159489837-428.40427-75-0@perl.org>

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

diff --git a/pp_pack.c b/pp_pack.c
index c898dce..51b42d9 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2630,6 +2630,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
 		if (savsym.howlen == e_star && beglist == endlist)
 		    break;		/* No way to continue */
 	    }
+	    items = endlist - beglist;
 	    lookahead.flags  = symptr->flags & ~group_modifiers;
 	    goto no_change;
 	}