diff options
| author | Andy Lester <andy@petdance.com> | 2005-07-18 05:37:38 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-07-18 15:23:38 +0000 |
| commit | 9a957fbc017c803266bc4e3766dfcbfb58cfa99b (patch) | |
| tree | beed88f144e14ca4175e374522d11a7175c151eb /pp_sys.c | |
| parent | 8896765ab803e8ecde87ca250efb892518f0df16 (diff) | |
| download | perl-9a957fbc017c803266bc4e3766dfcbfb58cfa99b.tar.gz | |
The continuing plod through embed.fnc
Message-ID: <20050718153738.GB20193@petdance.com>
p4raw-id: //depot/perl@25172
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 16 |
1 files changed, 9 insertions, 7 deletions
@@ -3543,11 +3543,10 @@ PP(pp_chdir) { dSP; dTARGET; const char *tmps = 0; - GV *gv = 0; - SV **svp; + GV *gv = NULL; if( MAXARG == 1 ) { - SV *sv = POPs; + SV * const sv = POPs; if (SvTYPE(sv) == SVt_PVGV) { gv = (GV*)sv; } @@ -3560,10 +3559,13 @@ PP(pp_chdir) } if( !gv && (!tmps || !*tmps) ) { - if ( (svp = hv_fetch(GvHVn(PL_envgv), "HOME", 4, FALSE)) - || (svp = hv_fetch(GvHVn(PL_envgv), "LOGDIR", 6, FALSE)) + HV * const table = GvHVn(PL_envgv); + SV **svp; + + if ( (svp = hv_fetch(table, "HOME", 4, FALSE)) + || (svp = hv_fetch(table, "LOGDIR", 6, FALSE)) #ifdef VMS - || (svp = hv_fetch(GvHVn(PL_envgv), "SYS$LOGIN", 9, FALSE)) + || (svp = hv_fetch(table, "SYS$LOGIN", 9, FALSE)) #endif ) { @@ -3581,7 +3583,7 @@ PP(pp_chdir) TAINT_PROPER("chdir"); if (gv) { #ifdef HAS_FCHDIR - IO* io = GvIO(gv); + IO* const io = GvIO(gv); if (io) { if (IoIFP(io)) { PUSHi(fchdir(PerlIO_fileno(IoIFP(io))) >= 0); |