From 2d9eabbc446ae89e51bda1d0c01b6b13a78302ed Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Tue, 7 Aug 2012 18:22:16 +0000
Subject: [PATCH] fix warning for broken calls

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

diff --git a/tests/simulator-udp.pl b/tests/simulator-udp.pl
index c27bbbc..96bd926 100755
--- a/tests/simulator-udp.pl
+++ b/tests/simulator-udp.pl
@@ -140,6 +140,7 @@ if (!$NODEL) {
 	print("deleting\n");
 	@calls = sort {rand() < .5} @calls;
 	for my $c (@calls) {
+		$c or next;
 		my ($tags, $callid) = @$c[3,5];
 		msg("D $callid $$tags[0] $$tags[1]");
 	}