Handle commands/pipes with newlines

This commit is contained in:
Pragmatic Software 2017-11-30 18:50:17 -08:00
parent 7b142c68f5
commit 7a53f74e83
1 changed files with 1 additions and 1 deletions

View File

@ -256,7 +256,7 @@ sub interpret {
# parse out a pipe unless escaped
if (defined $arguments && $arguments =~ m/(?<!\\)\|\s*\{\s*[^}]+\}\s*$/) {
$arguments =~ m/(.*?)\s*(?<!\\)\|\s*\{\s*([^}]+)\}(.*)/;
$arguments =~ m/(.*?)\s*(?<!\\)\|\s*\{\s*([^}]+)\}(.*)/s;
my ($args, $pipe, $rest) = ($1, $2, $3);
$pipe =~ s/\s+$//;