MT#5733 bin/create_peers.pl: fix warning

13 years ago · 9db218c0a1
parent cc7d92b2b7
commit 9db218c0a1
1 changed files with 6 additions and 2 deletions
--- 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}});
+                }
            }
        }
    }