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.