diff options
| author | dgay@acm.org <dgay@acm.org> | 2006-09-28 10:30:37 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-03 11:58:46 +0000 |
| commit | ee790063445e363f16d5865913a74a9b6fe5cc39 (patch) | |
| tree | ec0705851f48d341e2bbb1fb7f34227d0524e432 /pp_pack.c | |
| parent | 62f4cbcb2a265c954ce4a394dd6920a5adb5daf5 (diff) | |
| download | perl-ee790063445e363f16d5865913a74a9b6fe5cc39.tar.gz | |
[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
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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; } |