From 9db218c0a1c2d82ba3b48e03e613a6fa2acbcd96 Mon Sep 17 00:00:00 2001
From: Victor Seva <vseva@sipwise.com>
Date: Tue, 21 Jan 2014 14:29:54 +0100
Subject: [PATCH] MT#5733 bin/create_peers.pl: fix warning

---
 bin/create_peers.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/bin/create_peers.pl b/bin/create_peers.pl
index 51e59a8f..e8d177fc 100755
--- a/bin/create_peers.pl
+++ b/bin/create_peers.pl
@@ -88,9 +88,13 @@ sub do_delete
         $result = call_prov( $bprov, 'get_sip_peering_contracts');
         foreach (@{$result})
         {
-            if ($_->{contact}->{company} eq $peer_name)
+            my $contact = $_->{contact};
+            if(defined($contact->{company}))
             {
-                call_prov($bprov, 'delete_sip_peering_contract', { id => $_->{id}});
+                if ($contact->{company} eq $peer_name)
+                {
+                    call_prov($bprov, 'delete_sip_peering_contract', { id => $_->{id}});
+                }
             }
         }
     }