diff options
| author | Hans Nilsson <[email protected]> | 2017-11-09 12:35:12 +0100 |
|---|---|---|
| committer | Hans Nilsson <[email protected]> | 2017-11-15 15:05:20 +0100 |
| commit | 70773b1498cb845db16ed83f3f4c3b1b52e08ab2 (patch) | |
| tree | e8e65c138a564bd1140b4143866f8c46d7ff5c14 | |
| parent | 84f29ab803e8f36ef058a47f4c2b224f4dd58220 (diff) | |
| download | otp-70773b1498cb845db16ed83f3f4c3b1b52e08ab2.tar.gz otp-70773b1498cb845db16ed83f3f4c3b1b52e08ab2.tar.bz2 otp-70773b1498cb845db16ed83f3f4c3b1b52e08ab2.zip | |
ssh: Don't remove trailing WS in Hello msg
| -rw-r--r-- | lib/ssh/src/ssh_transport.erl | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lib/ssh/src/ssh_transport.erl b/lib/ssh/src/ssh_transport.erl index 0052347912..6d158537d4 100644 --- a/lib/ssh/src/ssh_transport.erl +++ b/lib/ssh/src/ssh_transport.erl @@ -1987,12 +1987,6 @@ same(Algs) -> [{client2server,Algs}, {server2client,Algs}]. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% trim_tail(Str) -> - lists:reverse(trim_head(lists:reverse(Str))). - -trim_head([$\s|Cs]) -> trim_head(Cs); -trim_head([$\t|Cs]) -> trim_head(Cs); -trim_head([$\n|Cs]) -> trim_head(Cs); -trim_head([$\r|Cs]) -> trim_head(Cs); -trim_head(Cs) -> Cs. - - + lists:takewhile(fun(C) -> + C=/=$\r andalso C=/=$\n + end, Str). |