This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use grok_atou instead of strtoul (no explicit strtol uses).
[perl5.git] / gv.c
diff --git a/gv.c b/gv.c
index 64bdbf1..8b43d91 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1843,7 +1843,7 @@ S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len,
                    if (!isDIGIT(*end))
                         return addmg;
                }
-                paren = strtoul(name, NULL, 10);
+                paren = grok_atou(name, NULL);
                 goto storeparen;
            }
            }