be less strict about finding the IP for logging

2019-01-03 23:29:14 +00:00
parent b3f6ffe0d7
commit 23a87f19fd
2 changed files with 2 additions and 4 deletions
--- a/lib/App/Netdisco/DB/ResultSet/DevicePort.pm
+++ b/lib/App/Netdisco/DB/ResultSet/DevicePort.pm
@@ -239,8 +239,7 @@ sub delete {
    try { $ip ||= ${ $ports->{attrs}->{where}->{ip}->{'-in'} }->[1]->[1] };
    try { $ip ||= $ports->{attrs}->{where}->{'me.ip'} };
  }
-  die "cannot find IP address in \$ports query for delete\n"
-    unless $ip;
+  $ip ||= 'netdisco';

  foreach my $set (qw/
    DevicePortPower