diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2005-12-29 19:40:49 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-30 11:57:14 +0000 |
| commit | 0cea005841294e1c066737aa1ee9f5a7235bc7bc (patch) | |
| tree | f9b59a3c04410a87af7598ad8f1a2d7585e6fc04 /gv.c | |
| parent | 89c1a98847aab770ea421d315d98085021b6187c (diff) | |
| download | perl-0cea005841294e1c066737aa1ee9f5a7235bc7bc.tar.gz | |
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
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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)) |