From 98dafc01a631e8efdda861c8d6ff5833eae69524 Mon Sep 17 00:00:00 2001 From: afresh1 Date: Thu, 9 Apr 2020 01:32:10 +0000 Subject: Update perl to 5.30.2 https://metacpan.org/pod/release/SHAY/perl-5.30.2/pod/perldelta.pod Incompatible Changes There are no changes intentionally incompatible with 5.30.0. Updated Modules and Pragmata * Compress::Raw::Bzip2 has been upgraded from version 2.084 to 2.089. * Module::CoreList has been upgraded from version 5.20191110 to 5.20200314. Selected Bug Fixes * printf() or sprintf() with the %n format no longer cause a panic on debugging builds, or report an incorrectly cached length value when producing SVfUTF8 flagged strings. * A memory leak in regular expression patterns has been fixed. * A read beyond buffer in grok_infnan has been fixed. * An assertion failure in the regular expression engine has been fixed. * (?{...}) eval groups in regular expressions no longer unintentionally trigger "EVAL without pos change exceeded limit in regex". Proceed when you feel comfortable. deraadt@ --- gnu/usr.bin/perl/numeric.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gnu/usr.bin/perl/numeric.c') diff --git a/gnu/usr.bin/perl/numeric.c b/gnu/usr.bin/perl/numeric.c index d4e3493784e..e8e8cadf176 100644 --- a/gnu/usr.bin/perl/numeric.c +++ b/gnu/usr.bin/perl/numeric.c @@ -765,6 +765,9 @@ Perl_grok_infnan(pTHX_ const char** sp, const char* send) s++; flags |= IS_NUMBER_NAN | IS_NUMBER_NOT_INT; + if (s == send) { + return flags; + } /* NaN can be followed by various stuff (NaNQ, NaNS), but * there are also multiple different NaN values, and some @@ -776,6 +779,9 @@ Perl_grok_infnan(pTHX_ const char** sp, const char* send) /* "nanq" or "nans" are ok, though generating * these portably is tricky. */ s++; + if (s == send) { + return flags; + } } if (*s == '(') { /* C99 style "nan(123)" or Perlish equivalent "nan($uv)". */ -- cgit v1.2.3-59-g8ed1b