Imported Upstream version 1.23

[tar] / lib / fclose.c

diff --git a/lib/fclose.c b/lib/fclose.c
deleted file mode 100644 (file)
index a0074b7..0000000
--- a/lib/fclose.c
+++ /dev/null
@@ -1,47 +0,0 @@
-/* fclose replacement.
-   Copyright (C) 2008 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 Free Software Foundation; either version 3 of the License, or
-   (at your option) any later version.
-
-   This program is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
-
-#include <config.h>
-
-/* Specification.  */
-#include <stdio.h>
-
-#include <errno.h>
-#include <unistd.h>
-
-/* Override fclose() to call the overridden close().  */
-
-int
-rpl_fclose (FILE *fp)
-#undef fclose
-{
-  int saved_errno = 0;
-
-  if (fflush (fp))
-    saved_errno = errno;
-
-  if (close (fileno (fp)) < 0 && saved_errno == 0)
-    saved_errno = errno;
-
-  fclose (fp); /* will fail with errno = EBADF */
-
-  if (saved_errno != 0)
-    {
-      errno = saved_errno;
-      return EOF;
-    }
-  return 0;
-}