Change 29987: Convert the last remaining 256 byte "small"bufs to 128 bytes.

[Nicholas Clark]

Change 29987 by [EMAIL PROTECTED] on 2007/01/25 23:18:25

        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)

Affected files ...

... //depot/perl/gv.c#349 edit
... //depot/perl/toke.c#740 edit

Differences ...

==== //depot/perl/gv.c#349 (text) ====
Index: perl/gv.c
--- perl/gv.c#348~29983~        2007-01-25 14:39:08.000000000 -0800
+++ perl/gv.c   2007-01-25 15:18:25.000000000 -0800
@@ -105,7 +105,7 @@
 Perl_gv_fetchfile(pTHX_ const char *name)
 {
     dVAR;
-    char smallbuf[256];
+    char smallbuf[128];
     char *tmpbuf;
     STRLEN tmplen;
     GV *gv;

==== //depot/perl/toke.c#740 (text) ====
Index: perl/toke.c
--- perl/toke.c#739~29983~      2007-01-25 14:39:08.000000000 -0800
+++ perl/toke.c 2007-01-25 15:18:25.000000000 -0800
@@ -790,7 +790,7 @@
        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);
End of Patch.