From a8dde503430d93737857c59370568557b8acf651 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sun, 31 Mar 2013 13:45:27 +0100
Subject: [PATCH] no need to search for device - IP should already be exact

---
 Netdisco/lib/App/Netdisco/Util/DeviceProperties.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/Netdisco/lib/App/Netdisco/Util/DeviceProperties.pm b/Netdisco/lib/App/Netdisco/Util/DeviceProperties.pm
index b696dd17..cf7b2134 100644
--- a/Netdisco/lib/App/Netdisco/Util/DeviceProperties.pm
+++ b/Netdisco/lib/App/Netdisco/Util/DeviceProperties.pm
@@ -1,9 +1,9 @@
 package App::Netdisco::Util::DeviceProperties;
 
 use Dancer qw/:syntax :script/;
-use Dancer::Plugin::DBIC 'schema';
 
 use NetAddr::IP::Lite ':lower';
+use App::Netdisco::Util::Connect 'get_device';
 
 use base 'Exporter';
 our @EXPORT = ();
@@ -40,8 +40,7 @@ Returns false if the host is not permitted to discover the target device.
 sub is_discoverable {
   my $q = shift;
 
-  my $device = schema('netdisco')->resultset('Device')
-    ->search_for_device($q) or return 0;
+  my $device = get_device($q) or return 0;
   my $addr = NetAddr::IP::Lite->new($device->ip);
 
   my $discover_no   = setting('discover_no') || [];