This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
more "correct" utbuf for utime()
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 24 Feb 1999 02:49:04 +0000 (02:49 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 24 Feb 1999 02:49:04 +0000 (02:49 +0000)
p4raw-id: //depot/perl@3014

doio.c

diff --git a/doio.c b/doio.c
index 79db3aa..3038c3d 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -1324,18 +1324,18 @@ nothing in the core.
            struct utimbuf utbuf;
 #else
            struct {
-               long    actime;
-               long    modtime;
+               Time_t  actime;
+               Time_t  modtime;
            } utbuf;
 #endif
 
            Zero(&utbuf, sizeof utbuf, char);
 #ifdef BIG_TIME
-           utbuf.actime = (Time_t)SvNVx(*++mark);    /* time accessed */
-           utbuf.modtime = (Time_t)SvNVx(*++mark);    /* time modified */
+           utbuf.actime = (Time_t)SvNVx(*++mark);      /* time accessed */
+           utbuf.modtime = (Time_t)SvNVx(*++mark);     /* time modified */
 #else
-           utbuf.actime = SvIVx(*++mark);    /* time accessed */
-           utbuf.modtime = SvIVx(*++mark);    /* time modified */
+           utbuf.actime = (Time_t)SvIVx(*++mark);      /* time accessed */
+           utbuf.modtime = (Time_t)SvIVx(*++mark);     /* time modified */
 #endif
            APPLY_TAINT_PROPER();
            tot = sp - mark;