Fix setting EFFECTIVE_GROUP_ID to a list

RT 134486

This is a regression introduced in 5.29.0
by 5d4a52b grok_atoUV: allow non-C strings and document

Making sure we backup the end pointer and restore it
before calling multiple times grok_atoUV should fix it.

URL: https://rt.perl.org/Ticket/Display.html?id=134486

Author: atoomic

mg.c

@@ -3180,6 +3180,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
             Groups_t *gary = NULL;
             const char* p_end = p + len;
             const char* endptr = p_end;
+            const char* backup_endptr = endptr;
             UV uv;
 #ifdef _SC_NGROUPS_MAX
            int maxgrp = sysconf(_SC_NGROUPS_MAX);
@@ -3211,6 +3212,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
                     Newx(gary, i + 1, Groups_t);
                 else
                     Renew(gary, i + 1, Groups_t);
+                endptr = backup_endptr; /* we know where the end is */
                 if (grok_atoUV(p, &uv, &endptr))
                     gary[i] = (Groups_t)uv;
                 else {