diff options
author | Leah Neukirchen <leah@vuxu.org> | 2017-11-02 14:17:40 +0100 |
---|---|---|
committer | Leah Neukirchen <leah@vuxu.org> | 2017-11-02 14:17:40 +0100 |
commit | 23d2bce0d12dff3d7b66a3630ec55067fe85ec05 (patch) | |
tree | 0ac824f537f7421951167b65970bd3c960135449 | |
parent | 332ed93b9114e9280528c139fc7f58d49626a97d (diff) | |
download | tap3-23d2bce0d12dff3d7b66a3630ec55067fe85ec05.tar.gz tap3-23d2bce0d12dff3d7b66a3630ec55067fe85ec05.tar.xz tap3-23d2bce0d12dff3d7b66a3630ec55067fe85ec05.zip |
tap3: truncate desc after newline
-rwxr-xr-x | tap3 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tap3 b/tap3 index 9a0db42..129b5bd 100755 --- a/tap3 +++ b/tap3 @@ -55,6 +55,7 @@ my $err = gensym; my $pid = open3($wtr, $rdr, $err, "/bin/sh", "-c", $cmd); my $desc = shift || $cmd; +$desc =~ s/\n.*//; print $wtr $input if (defined($input)); close $wtr; |