This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert the last remaining 256 byte "small"bufs to 128 bytes.
authorNicholas Clark <nick@ccl4.org>
Thu, 25 Jan 2007 23:18:25 +0000 (23:18 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 25 Jan 2007 23:18:25 +0000 (23:18 +0000)
(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

gv.c
toke.c

diff --git a/gv.c b/gv.c
index 39d7a61..e1f1299 100644 (file)
--- 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 (file)
--- 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);