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@

1 files changed, 6 insertions, 0 deletions

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)". */