From f47cd60948ff58f8f425c31663454e853c5975ea Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Wed, 8 Aug 2012 21:24:12 +0000
Subject: [PATCH] randomly delete full call instead of single branches

---
 tests/simulator-udp.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/simulator-udp.pl b/tests/simulator-udp.pl
index 8e26de9eb..ef6a65e86 100755
--- a/tests/simulator-udp.pl
+++ b/tests/simulator-udp.pl
@@ -200,6 +200,7 @@ if (!$NODEL) {
 	for my $c (@calls) {
 		$c or next;
 		my ($tags, $callid) = @$c[3,5];
+		$BRANCHES && rand() < .3 and $callid =~ s/;.*//;
 		msg("D $callid $$tags[0] $$tags[1]");
 	}
 }