X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/f5992bc4a0a918eda67e6097aac8bd75a3b524e4..1c14aae0b07e7d831ac07cadc1b3a73ceba9637c:/pp_pack.c

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;
 	}