X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Futime.c;h=05aa3467ccc947aa3343570f5581ebd11b0edade;hb=7b2dc3362ca654843fae1d6c14233ae5701a72df;hp=237afde50afe79dfc43627ce9ffe8d14358abc8c;hpb=f098d82f15eeac396cc2b82c632cab8b50452b94;p=gnulib.git diff --git a/lib/utime.c b/lib/utime.c index 237afde50..05aa3467c 100644 --- a/lib/utime.c +++ b/lib/utime.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1998, 2001-2002 Free Software Foundation, Inc. +/* Copyright (C) 1998, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the @@ -27,6 +27,14 @@ # include #endif +#if !HAVE_UTIMES_NULL +# include +# include +#endif + +#include +#include + #include "full-write.h" #include "safe-read.h" @@ -53,21 +61,36 @@ utime_null (const char *file) int fd; char c; int status = 0; - struct stat sb; + struct stat st; + int saved_errno = 0; fd = open (file, O_RDWR); if (fd < 0 - || fstat (fd, &sb) < 0 + || fstat (fd, &st) < 0 || safe_read (fd, &c, sizeof c) == SAFE_READ_ERROR || lseek (fd, (off_t) 0, SEEK_SET) < 0 || full_write (fd, &c, sizeof c) != sizeof c - /* Maybe do this -- it's necessary on SunOS4.1.3 with some combination + /* Maybe do this -- it's necessary on SunOS 4.1.3 with some combination of patches, but that system doesn't use this code: it has utimes. || fsync (fd) < 0 */ - || ftruncate (fd, st.st_size) < 0 - || close (fd) < 0) - status = -1; + || (st.st_size == 0 && ftruncate (fd, st.st_size) < 0)) + { + saved_errno = errno; + status = -1; + } + + if (0 <= fd) + { + if (close (fd) < 0) + status = -1; + + /* If there was a prior failure, use the saved errno value. + But if the only failure was in the close, don't change errno. */ + if (saved_errno) + errno = saved_errno; + } + return status; #endif }