[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

diff --git a/vms/vms.c b/vms/vms.c
index c8e0536..38029d7 100644 (file)
--- 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);