From 1ded81fa96aa8265582facb411c08a32c3647690 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Mon, 20 Feb 2012 21:37:04 +0000
Subject: [PATCH] fix explosion on partial IP - github issue #7

---
 Netdisco/lib/Netdisco/Web/Search.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Netdisco/lib/Netdisco/Web/Search.pm b/Netdisco/lib/Netdisco/Web/Search.pm
index 258fce26..1063622e 100644
--- a/Netdisco/lib/Netdisco/Web/Search.pm
+++ b/Netdisco/lib/Netdisco/Web/Search.pm
@@ -197,8 +197,8 @@ get '/search' => sub {
         else {
             my $s = schema('netdisco');
             if ($q =~ m{^[a-f0-9.:/]+$}i) {
-                if (NetAddr::IP::Lite->new($q) and
-                    $s->resultset('Device')->find($q)) {
+                my $ip = NetAddr::IP::Lite->new($q);
+                if ($ip and $s->resultset('Device')->search_by_field({ip => $q})->count) {
                     params->{'tab'} = 'device';
                 }
                 else {