diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2005-12-07 17:26:21 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2005-12-08 04:34:42 +0000 |
| commit | 61ff64ea87bfc095e60d68654dc0c5199dec292f (patch) | |
| tree | 037824bb35b9f2430d34d8b084c1d26d9d745075 /vms/vms.c | |
| parent | 23ca4e226622486979507fdfba49ad547a457d25 (diff) | |
| download | perl-61ff64ea87bfc095e60d68654dc0c5199dec292f.tar.gz | |
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
Diffstat (limited to 'vms/vms.c')
| -rw-r--r-- | vms/vms.c | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -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++; |