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 /pp_sys.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 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3331,10 +3331,10 @@ PP(pp_chdir) HV * const table = GvHVn(PL_envgv); SV **svp; - if ( (svp = hv_fetch(table, "HOME", 4, FALSE)) - || (svp = hv_fetch(table, "LOGDIR", 6, FALSE)) + if ( (svp = hv_fetchs(table, "HOME", FALSE)) + || (svp = hv_fetchs(table, "LOGDIR", FALSE)) #ifdef VMS - || (svp = hv_fetch(table, "SYS$LOGIN", 9, FALSE)) + || (svp = hv_fetchs(table, "SYS$LOGIN", FALSE)) #endif ) { |