2eef5a
From 897d1f7fd515b828e4b198d8b8bef76c6faf03ed Mon Sep 17 00:00:00 2001
2eef5a
From: John Lightsey <jd@cpanel.net>
2eef5a
Date: Wed, 20 Nov 2019 20:02:45 -0600
2eef5a
Subject: [PATCH] regcomp.c: Prevent integer overflow from nested regex
2eef5a
 quantifiers.
2eef5a
MIME-Version: 1.0
2eef5a
Content-Type: text/plain; charset=UTF-8
2eef5a
Content-Transfer-Encoding: 8bit
2eef5a
2eef5a
(CVE-2020-10543) On 32bit systems the size calculations for nested regular
2eef5a
expression quantifiers could overflow causing heap memory corruption.
2eef5a
2eef5a
Fixes: Perl/perl5-security#125
2eef5a
(cherry picked from commit bfd31397db5dc1a5c5d3e0a1f753a4f89a736e71)
2eef5a
Signed-off-by: Petr Písař <ppisar@redhat.com>
2eef5a
---
2eef5a
 regcomp.c | 6 ++++++
2eef5a
 1 file changed, 6 insertions(+)
2eef5a
2eef5a
diff --git a/regcomp.c b/regcomp.c
2eef5a
index 93c8d98fbb..5f86be8086 100644
2eef5a
--- a/regcomp.c
2eef5a
+++ b/regcomp.c
2eef5a
@@ -5489,6 +5489,12 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,
2eef5a
 				  RExC_precomp)));
2eef5a
                 }
2eef5a
 
2eef5a
+                if ( ( minnext > 0 && mincount >= SSize_t_MAX / minnext )
2eef5a
+                    || min >= SSize_t_MAX - minnext * mincount )
2eef5a
+                {
2eef5a
+                    FAIL("Regexp out of space");
2eef5a
+                }
2eef5a
+
2eef5a
 		min += minnext * mincount;
2eef5a
 		is_inf_internal |= deltanext == SSize_t_MAX
2eef5a
                          || (maxcount == REG_INFTY && minnext + deltanext > 0);
2eef5a
-- 
2eef5a
2.25.4
2eef5a