X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Frename.c;h=29a8da44bda175003a35af969db8fe8df229e685;hb=e1a15e1dd928decc9477834db7cc744072da297d;hp=d3ba5e16d0f782ddbd5ed42362acc4695be0fccc;hpb=acf23bc3d2b6060b03d9592bdc803719bddde0d2;p=gnulib.git diff --git a/lib/rename.c b/lib/rename.c index d3ba5e16d..29a8da44b 100644 --- a/lib/rename.c +++ b/lib/rename.c @@ -1,7 +1,5 @@ -/* @IGNORE@ -*- c -*- */ -/* Work around the bug in some systems whereby rename fails when the - source path has a trailing slash. The rename from SunOS 4.1.1_U1 - has this bug. +/* Work around the bug in some systems whereby rename fails when the source + path has a trailing slash. The rename from SunOS 4.1.1_U1 has this bug. Copyright (C) 2001 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify @@ -22,6 +20,17 @@ #include #include +#if HAVE_STDLIB_H +# include +#endif + +#if HAVE_STRING_H +# include +#else +# include +#endif + +#include #ifndef HAVE_DECL_FREE "this configure-time declaration test was not run" @@ -30,30 +39,30 @@ void free (); #endif -/* Rename the file SRC_PATH to the file DST_PATH, removing any trailing - slashes from SRC_PATH. Needed for SunOS 4.1.1_U1. */ +void strip_trailing_slashes (); + +/* Rename the file SRC_PATH to DST_PATH, removing any trailing + slashes from SRC_PATH. Needed for SunOS 4.1.1_U1. */ int rpl_rename (const char *src_path, const char *dst_path) { char *src_temp; - int i; - int t; + int ret_val; + size_t s_len = strlen (src_path); - i = strlen (src_path) - 1; - if (src_path[i] == '/') + if (s_len && src_path[s_len - 1] == '/') { src_temp = xstrdup (src_path); - for ( ; i > 0 && src_path[i] == '/'; i--) - src_temp[i] = '\0'; + strip_trailing_slashes (src_temp); } else src_temp = (char *) src_path; - t = rename (src_temp, dst_path); + ret_val = rename (src_temp, dst_path); if (src_temp != src_path) free (src_temp); - return t; + return ret_val; }