Reduce size of buffers for identifier names, as suggested in
authorTels <nospam-abuse@bloodgate.com>
Thu, 29 Dec 2005 18:40:49 +0000 (19:40 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 30 Dec 2005 11:57:14 +0000 (11:57 +0000)
Subject: Stack usage (in gv_stashpvn and others)
Message-Id: <200512291840.50765@bloodgate.com>

p4raw-id: //depot/perl@26534

gv.c

diff --git a/gv.c b/gv.c
index 8a437f0..d960c66 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -675,7 +675,7 @@ package does not exist then NULL is returned.
 HV*
 Perl_gv_stashpvn(pTHX_ const char *name, U32 namelen, I32 create)
 {
-    char smallbuf[256];
+    char smallbuf[128];
     char *tmpbuf;
     HV *stash;
     GV *tmpgv;
@@ -761,7 +761,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
 
            len = namend - name;
            if (len > 0) {
-               char smallbuf[256];
+               char smallbuf[128];
                char *tmpbuf;
 
                if (len + 3 < sizeof (smallbuf))