From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 25 Jan 2007 23:18:25 +0000 (+0000)
Subject: Convert the last remaining 256 byte "small"bufs to 128 bytes.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4116122ef9a90b07cffa557ba0b71f9b75e5d034;p=p5sagit%2Fp5-mst-13.2.git

Convert the last remaining 256 byte "small"bufs to 128 bytes.
(The actual size doesn't matter, as the buffers are only there to
save a malloc() for the common, short, case. Coverage reports suggest
that we aren't actually testing the long case. Yet - will fix this)

p4raw-id: //depot/perl@29987
---

diff --git a/gv.c b/gv.c
index 39d7a61..e1f1299 100644
--- a/gv.c
+++ b/gv.c
@@ -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;
diff --git a/toke.c b/toke.c
index d4930d9..d3c7be6 100644
--- a/toke.c
+++ b/toke.c
@@ -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);