From: John E. Malmberg <wb8tyw@qsl.net>
Date: Wed, 7 Dec 2005 22:26:21 +0000 (-0500)
Subject: patch@26253 Allow embedded new lines passed through to commands
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=61ff64ea87bfc095e60d68654dc0c5199dec292f;p=p5sagit%2Fp5-mst-13.2.git

patch@26253 Allow embedded new lines passed through to commands
	From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <4397A7DD.8030403@qsl.net>

p4raw-id: //depot/perl@26298
---

diff --git a/vms/vms.c b/vms/vms.c
index 294b73f..a1facc5 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3391,9 +3391,6 @@ safe_popen(pTHX_ const char *cmd, const char *in_mode, int *psts)
     _ckvmssts(lib$set_symbol(&d_sym_out, &d_symbol, &table));
 
     p = vmscmd->dsc$a_pointer;
-    while (*p && *p != '\n') p++;
-    *p = '\0';                                  /* truncate on \n */
-    p = vmscmd->dsc$a_pointer;
     while (*p == ' ' || *p == '\t') p++;        /* remove leading whitespace */
     if (*p == '$') p++;                         /* remove leading $ */
     while (*p == ' ' || *p == '\t') p++;