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/Device.pm
+++ b/lib/App/Netdisco/DB/ResultSet/Device.pm
@@ -608,8 +608,7 @@ sub delete {
    try { $ip ||= $devices->{attrs}->{where}->{ip} };
    try { $ip ||= $devices->{attrs}->{where}->{'me.ip'} };
  }
-  die "cannot find IP address in \$devices query for delete\n"
-    unless $ip;
+  $ip ||= 'netdisco';

  foreach my $set (qw/
    DeviceIp