1 files changed, 16 insertions, 19 deletions
diff --git a/imap/src/osdep/vms/tcp_vmsm.c b/imap/src/osdep/vms/tcp_vmsm.c
index bc9d9ca7..4a5483d6 100644
--- a/imap/src/osdep/vms/tcp_vmsm.c
+++ b/imap/src/osdep/vms/tcp_vmsm.c
@@ -1,13 +1,5 @@
 /* ========================================================================
- * Copyright 1988-2008 University of Washington
- *
- * Licensed under the Apache License, Version 2.0 (the "License");
- * you may not use this file except in compliance with the License.
- * You may obtain a copy of the License at
- *
- *     http://www.apache.org/licenses/LICENSE-2.0
- *
- * 
+ * Copyright 2008-2010 Mark Crispin
  * ========================================================================
  */
 
@@ -15,15 +7,19 @@
  * Program:	VMS TCP/IP routines for Multinet
  *
  * Author:	Mark Crispin
- *		Networks and Distributed Computing
- *		Computing & Communications
- *		University of Washington
- *		Administration Building, AG-44
- *		Seattle, WA  98195
- *		Internet: MRC@CAC.Washington.EDU
  *
  * Date:	2 August 1994
- * Last Edited:	13 January 2008
+ * Last Edited:	3 April 2010
+ *
+ * Previous versions of this file were:
+ *
+ * Copyright 1988-2008 University of Washington
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
  */
 
 			
@@ -462,10 +458,11 @@ char *tcp_canonical (char *name)
   char host[MAILTMPLEN];
   struct hostent *he;
 				/* look like domain literal? */
-  if (name[0] == '[' && name[strlen (name) - 1] == ']') return name;
+  if (name[0] == '[' && name[strlen (name) - 1] == ']')
+    return cpystr (name);
 				/* note that Unix requires lowercase! */
-  else return (he = gethostbyname (lcase (strcpy (host,name)))) ?
-    he->h_name : name;
+  else return cpystr ((he = gethostbyname (lcase (strcpy (host,name)))) ?
+		      he->h_name : name);
 }