diff options
-rw-r--r-- | gv.c | 2 | ||||
-rw-r--r-- | toke.c | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -105,7 +105,7 @@ GV * Perl_gv_fetchfile(pTHX_ const char *name) { dVAR; - char smallbuf[256]; + char smallbuf[128]; char *tmpbuf; STRLEN tmplen; GV *gv; @@ -790,7 +790,7 @@ S_incline(pTHX_ char *s) if (tmplen > 7 && strnEQ(cf, "(eval ", 6)) { /* must copy *{"::_<(eval N)[oldfilename:L]"} * to *{"::_<newfilename"} */ - char smallbuf[256], smallbuf2[256]; + char smallbuf[128], smallbuf2[128]; char *tmpbuf, *tmpbuf2; GV **gvp, *gv2; STRLEN tmplen2 = strlen(s); |