[PATCH] [ID 19991013.005] utime undef, undef, @files
authorRobert Spier <rspier@pobox.com>
Sat, 26 May 2001 20:05:23 +0000 (16:05 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 27 May 2001 17:57:18 +0000 (17:57 +0000)
Date: Sat, 26 May 2001 20:05:23 -0400
Message-ID: <15120.17603.148648.12430@rls.cx>

Subject: Re: [PATCH] [ID 19991013.005] utime undef, undef, @files
From: rspier@pobox.com (Robert Spier)
Date: Sun, 27 May 2001 00:23:12 -0400
Message-ID: <15120.33072.511966.767230@rls.cx>

p4raw-id: //depot/perl@10232

doio.c
pod/perlfunc.pod

diff --git a/doio.c b/doio.c
index dd840f6..e86862f 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -1667,20 +1667,31 @@ nothing in the core.
            } utbuf;
 #endif
 
+           SV* accessed = *++mark;
+           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" */
+
+           if ( accessed == &PL_sv_undef && modified == &PL_sv_undef )
+             utbufp = NULL;
+           
            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(accessed);     /* time accessed */
+           utbuf.modtime = (Time_t)SvNVx(modified);    /* time modified */
 #else
-           utbuf.actime = (Time_t)SvIVx(*++mark);      /* time accessed */
-           utbuf.modtime = (Time_t)SvIVx(*++mark);     /* time modified */
+           utbuf.actime = (Time_t)SvIVx(accessed);     /* time accessed */
+           utbuf.modtime = (Time_t)SvIVx(modified);    /* time modified */
 #endif
            APPLY_TAINT_PROPER();
            tot = sp - mark;
            while (++mark <= sp) {
                char *name = SvPVx(*mark, n_a);
                APPLY_TAINT_PROPER();
-               if (PerlLIO_utime(name, &utbuf))
+               if (PerlLIO_utime(name, utbufp))
                    tot--;
            }
        }
index 20714be..8912301 100644 (file)
@@ -5622,6 +5622,13 @@ command if the files already exist:
     $now = time;
     utime $now, $now, @ARGV;
 
+If the first two elements of the list are C<undef>, then the utime(2)
+function in the C library will be called with a null second argument.
+On most systems, this will set the file's access and modification
+times to the current time.  (i.e. equivalent to the example above.)
+
+    utime undef, undef, @ARGV;
+
 =item values HASH
 
 Returns a list consisting of all the values of the named hash.  (In a