From: John E. Malmberg <wb8tyw@qsl.net>
Date: Wed, 1 Aug 2007 08:25:22 +0000 (-0500)
Subject: [patch@31670] vms.c - Missing null terminator
X-Git-Tag: accepted/trunk/20130322.191538~14808
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d6adb841ee12c8e81631147a24128b6c0f39c3e5;p=platform%2Fupstream%2Fperl.git

[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
--- 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);