From e0694680a8b59641369a478b1aec58c2c2acc5d4 Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Sat, 4 Jul 2015 10:49:33 +0200
Subject: ssh: add disjunction to ssh_trpt_test_lib:match

---
 lib/ssh/test/ssh_trpt_test_lib.erl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lib/ssh/test/ssh_trpt_test_lib.erl b/lib/ssh/test/ssh_trpt_test_lib.erl
index a604fca1ac..75f495b6d7 100644
--- a/lib/ssh/test/ssh_trpt_test_lib.erl
+++ b/lib/ssh/test/ssh_trpt_test_lib.erl
@@ -218,6 +218,13 @@ match('$$', V, S) ->
 match('_', _, S) ->
     {true, S};
 
+match({'or',[P]}, V, S) -> match(P,V,S);
+match({'or',[Ph|Pt]}, V, S) -> 
+    case match(Ph,V,S) of
+        false -> match({'or',Pt}, V, S);
+	{true,S} -> {true,S}
+    end;
+	      
 match(P, V, S) when is_atom(P) ->
     case atom_to_list(P) of
 	"$"++_ ->
-- 
cgit v1.2.3