From: Tels <nospam-abuse@bloodgate.com>
Date: Thu, 29 Dec 2005 18:40:49 +0000 (+0100)
Subject: Reduce size of buffers for identifier names, as suggested in
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0cea005841294e1c066737aa1ee9f5a7235bc7bc;p=p5sagit%2Fp5-mst-13.2.git

Reduce size of buffers for identifier names, as suggested in

Subject: Stack usage (in gv_stashpvn and others)
Message-Id: <200512291840.50765@bloodgate.com>

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

diff --git a/gv.c b/gv.c
index 8a437f0..d960c66 100644
--- 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))