From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 15 Nov 2007 20:49:26 +0000 (+0000)
Subject: In Perl_vms_start_glob, when we don't have any matches and thus
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2da7a6b5eab232c468b68576568f84877f032fd6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 &&