# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 718408969 0
# Node ID aa32c275cbf9d0cb4f3dad473d292e48f713c5fd
# Parent  d1bd58483c59cc0a2da8038ff3757c3bf2d2b8a4
(directory_file_name): Don't clobber the envvar
when handling top-level rooted dir.

diff -r d1bd58483c59 -r aa32c275cbf9 src/fileio.c
--- a/src/fileio.c	Tue Oct 06 21:06:25 1992 +0000
+++ b/src/fileio.c	Tue Oct 06 22:02:49 1992 +0000
@@ -468,9 +468,11 @@
 		  && (ptr[rlen] == ']' || ptr[rlen] == '>')
 		  && ptr[rlen - 1] == '.')
 		{
-		  ptr[rlen - 1] = ']';
-		  ptr[rlen] = '\0';
-		  return directory_file_name (ptr, dst);
+		  char * buf = (char *) alloca (strlen (ptr) + 1);
+		  strcpy (buf, ptr);
+		  buf[rlen - 1] = ']';
+		  buf[rlen] = '\0';
+		  return directory_file_name (buf, dst);
 		}
 	      else
 		dst[slen - 1] = ':';