From 3ded6b58eed0a24145bc03634248eac82caf2dc0 Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Thu, 9 Jan 2014 21:37:51 -0500
Subject: [PATCH] Correct is_discoverable check in Undiscovered Neighbors
 report

---
 Netdisco/Changes                                           | 6 ++++++
 .../Netdisco/Web/Plugin/AdminTask/UndiscoveredNeighbors.pm | 7 +++----
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/Netdisco/Changes b/Netdisco/Changes
index de753c05..47919718 100644
--- a/Netdisco/Changes
+++ b/Netdisco/Changes
@@ -1,3 +1,9 @@
+2.021001
+
+  [BUG FIXES]
+
+  * Correct is_discoverable check in Undiscovered Neighbors report
+
 2.021000 - 2014-01-08
 
   [NEW FEATURES]
diff --git a/Netdisco/lib/App/Netdisco/Web/Plugin/AdminTask/UndiscoveredNeighbors.pm b/Netdisco/lib/App/Netdisco/Web/Plugin/AdminTask/UndiscoveredNeighbors.pm
index 36c10667..7c9d47a0 100644
--- a/Netdisco/lib/App/Netdisco/Web/Plugin/AdminTask/UndiscoveredNeighbors.pm
+++ b/Netdisco/lib/App/Netdisco/Web/Plugin/AdminTask/UndiscoveredNeighbors.pm
@@ -24,10 +24,9 @@ get '/ajax/content/admin/undiscoveredneighbors' => require_role admin => sub {
     return unless scalar @devices;
 
     # Don't include devices excluded from discovery by config
-    my @results = grep {
-        is_discoverable( $_->{'ports'}->{remote_ip},
-            $_->{'ports'}->{'remote_type'} )
-    } @devices;
+    my @results
+        = grep { is_discoverable( $_->{'remote_ip'}, $_->{'remote_type'} ) }
+        @devices;
 
     return unless scalar @results;