another temporary fix for v6 addr / mac addr confusion in NetAddr::MAC

This commit is contained in:
Oliver Gorwits
2015-01-24 13:43:23 +00:00
parent 124f1b5ed1
commit 2d48243326
2 changed files with 2 additions and 1 deletions

View File

@@ -61,7 +61,7 @@ requires:
Net::Domain: 1.23 Net::Domain: 1.23
Net::LDAP: 0 Net::LDAP: 0
NetAddr::IP: 4.068 NetAddr::IP: 4.068
NetAddr::MAC: 0.9 NetAddr::MAC: 0.92
Opcode: 1.07 Opcode: 1.07
Path::Class: 0.32 Path::Class: 0.32
Plack: 1.0023 Plack: 1.0023

View File

@@ -80,6 +80,7 @@ get '/search' => require_login sub {
my $nd = $s->resultset('Device')->search_fuzzy($q); my $nd = $s->resultset('Device')->search_fuzzy($q);
my ($likeval, $likeclause) = sql_match($q); my ($likeval, $likeclause) = sql_match($q);
my $mac = NetAddr::MAC->new($q); my $mac = NetAddr::MAC->new($q);
undef $mac if (defined $mac and $q =~ m/:{2}[a-f0-9]*$/i); # temp fix
if ($nd and $nd->count) { if ($nd and $nd->count) {
if ($nd->count == 1) { if ($nd->count == 1) {