fix explosion on partial IP - github issue #7

2012-02-20 21:37:04 +00:00
parent 5d39a972b7
commit 1ded81fa96
1 changed files with 2 additions and 2 deletions
--- 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 {