In Perl_vms_start_glob, when we don't have any matches and thus

return the input pattern, that doesn't mean clobber the input
scalar.  Follow-up to change 30813.

p4raw-id: //depot/perl@32329

diff --git a/vms/vms.c b/vms/vms.c
index a6bf64d..3a83b8e 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -12876,9 +12876,9 @@ Perl_vms_start_glob
 
        if (!found) {
            /* Be POSIXish: return the input pattern when no matches */
-           begin = SvPVX(tmpglob);
-           strcat(begin,"\n");
-           ok = (PerlIO_puts(tmpfp,begin) != EOF);
+           strcpy(rstr,SvPVX(tmpglob));
+           strcat(rstr,"\n");
+           ok = (PerlIO_puts(tmpfp,rstr) != EOF);
        }
 
        if (ok && sts != RMS$_NMF &&