diff options
| author | Stas Bekman <stas@stason.org> | 2003-02-08 22:12:28 +1100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-09 08:35:25 +0000 |
| commit | 6ec06612ae1fd94d8b029b09c7ab7efa1c33f2e4 (patch) | |
| tree | 0a7b5d0774d9c4059e58576c97525581e56e2549 /doio.c | |
| parent | 882d9136d49c7da4f4aba1ac0efc0aacec75671a (diff) | |
| download | perl-6ec06612ae1fd94d8b029b09c7ab7efa1c33f2e4.tar.gz | |
Re: utime undef, undef, "/tmp/test" and warnings
Message-ID: <3E444B6C.5060407@stason.org>
p4raw-id: //depot/perl@18676
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 23 |
1 files changed, 12 insertions, 11 deletions
@@ -1744,22 +1744,23 @@ nothing in the core. SV* modified = *++mark; void * utbufp = &utbuf; - /* be like C, and if both times are undefined, let the C - library figure out what to do. This usually means - "current time" */ + /* Be like C, and if both times are undefined, let the C + * library figure out what to do. This usually means + * "current time". */ if ( accessed == &PL_sv_undef && modified == &PL_sv_undef ) - utbufp = NULL; - - Zero(&utbuf, sizeof utbuf, char); + utbufp = NULL; + else { + Zero(&utbuf, sizeof utbuf, char); #ifdef BIG_TIME - utbuf.actime = (Time_t)SvNVx(accessed); /* time accessed */ - utbuf.modtime = (Time_t)SvNVx(modified); /* time modified */ + utbuf.actime = (Time_t)SvNVx(accessed); /* time accessed */ + utbuf.modtime = (Time_t)SvNVx(modified); /* time modified */ #else - utbuf.actime = (Time_t)SvIVx(accessed); /* time accessed */ - utbuf.modtime = (Time_t)SvIVx(modified); /* time modified */ + utbuf.actime = (Time_t)SvIVx(accessed); /* time accessed */ + utbuf.modtime = (Time_t)SvIVx(modified); /* time modified */ #endif - APPLY_TAINT_PROPER(); + } + APPLY_TAINT_PROPER(); tot = sp - mark; while (++mark <= sp) { char *name = SvPVx(*mark, n_a); |