From: Paul Eggert Date: Wed, 17 Jul 2013 13:03:43 +0000 (-0700) Subject: tmpdir: fix bug in VMS port X-Git-Tag: v0.1~88 X-Git-Url: https://gitweb.git.savannah.gnu.org/gitweb/?a=commitdiff_plain;h=312af25ba220ccff068245f0dc698e9bcc8f03f8;p=gnulib.git tmpdir: fix bug in VMS port * lib/tmpdir.c (path_search) [__VMS]: Never add slash. See Steven M. Schweda in . --- diff --git a/ChangeLog b/ChangeLog index 9b0cccdb3d..fac6e06ece 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2013-07-17 Paul Eggert + + tmpdir: fix bug in VMS port + * lib/tmpdir.c (path_search) [__VMS]: Never add slash. + See Steven M. Schweda in + . + 2013-07-15 Paul Eggert tmpdir: port to VMS, to // != /, and to long dirs diff --git a/lib/tmpdir.c b/lib/tmpdir.c index 46768c65bf..97fc3ff888 100644 --- a/lib/tmpdir.c +++ b/lib/tmpdir.c @@ -140,10 +140,10 @@ path_search (char *tmpl, size_t tmpl_len, const char *dir, const char *pfx, } dlen = strlen (dir); - add_slash = dlen != 0 && !ISSLASH (dir[dlen - 1]); #ifdef __VMS - if (dlen != 0 && dir[dlen - 1] == ':') - add_slash = false; + add_slash = 0; +#else + add_slash = dlen != 0 && !ISSLASH (dir[dlen - 1]); #endif /* check we have room for "${dir}/${pfx}XXXXXX\0" */