diff options
| author | Andy Lester <andy@petdance.com> | 2006-01-06 03:57:19 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-06 16:58:14 +0000 |
| commit | a4fc7abc9c5502fa20253f620ede1e956c44caed (patch) | |
| tree | 3bb2f1a057d5e3483cc90405fd50bd22f50894ef /malloc.c | |
| parent | 97aff369fa5580e7a888d4fa4c86be74ab000409 (diff) | |
| download | perl-a4fc7abc9c5502fa20253f620ede1e956c44caed.tar.gz | |
hv_fetchs() support
Message-ID: <20060106155719.GB9035@petdance.com>
p4raw-id: //depot/perl@26676
Diffstat (limited to 'malloc.c')
| -rw-r--r-- | malloc.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1156,11 +1156,11 @@ perl_get_emergency_buffer(IV *size) dTHX; /* First offense, give a possibility to recover by dieing. */ /* No malloc involved here: */ - GV **gvp = (GV**)hv_fetch(PL_defstash, "^M", 2, 0); SV *sv; char *pv; + GV **gvp = (GV**)hv_fetchs(PL_defstash, "^M", FALSE); - if (!gvp) gvp = (GV**)hv_fetch(PL_defstash, "\015", 1, 0); + if (!gvp) gvp = (GV**)hv_fetchs(PL_defstash, "\015", FALSE); if (!gvp || !(sv = GvSV(*gvp)) || !SvPOK(sv) || (SvLEN(sv) < (1<<LOG_OF_MIN_ARENA) - M_OVERHEAD)) return NULL; /* Now die die die... */ |