Change 31674: [patch@31670] vms.c - Missing null terminator

[Craig A . Berry]

Change 31674 by [EMAIL PROTECTED] on 2007/08/02 12:54:40

        Subject: [EMAIL PROTECTED] vms.c - Missing null terminator
        From: "John E. Malmberg" <[EMAIL PROTECTED]>
        Date: Wed, 01 Aug 2007 08:25:22 -0500
        Message-id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/vms/vms.c#206 edit

Differences ...

==== //depot/perl/vms/vms.c#206 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#205~31671~   2007-08-01 05:35:11.000000000 -0700
+++ perl/vms/vms.c      2007-08-02 05:54:40.000000000 -0700
@@ -5077,7 +5077,7 @@
 
   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 @@
        return NULL;
       }
     }
-    else strcpy(outbuf,esa);
+    else strcpy(outbuf, tbuf);
   }
   else if (isunix) {
     tmpfspec = PerlMem_malloc(VMS_MAXRSS);
End of Patch.