From d6adb841ee12c8e81631147a24128b6c0f39c3e5 Mon Sep 17 00:00:00 2001
From: "John E. Malmberg" <wb8tyw@qsl.net>
Date: Wed, 1 Aug 2007 03:25:22 -0500
Subject: [PATCH] [patch@31670] vms.c - Missing null terminator From: "John E.
 Malmberg" <wb8tyw@qsl.net> 	Message-id: <46B089C2.9000508@qsl.net>

p4raw-id: //depot/perl@31674
---
 vms/vms.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/vms/vms.c b/vms/vms.c
index c8e0536..38029d7 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -5077,7 +5077,7 @@ mp_do_rmsexpand
 
   if (!rms_nam_rsll(mynam)) {
     if (isunix) {
-      if (do_tounixspec(esa,outbuf,0,fs_utf8) == NULL) {
+      if (do_tounixspec(tbuf, outbuf ,0 , fs_utf8) == NULL) {
 	if (out) Safefree(out);
 	if (esal != NULL)
 	    PerlMem_free(esal);
@@ -5087,7 +5087,7 @@ mp_do_rmsexpand
 	return NULL;
       }
     }
-    else strcpy(outbuf,esa);
+    else strcpy(outbuf, tbuf);
   }
   else if (isunix) {
     tmpfspec = PerlMem_malloc(VMS_MAXRSS);
-- 
2.7.4