From 47a5f40efe0eb6bfae1ed63077c5daf5328658fb Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sat, 20 May 2017 16:15:56 +0100
Subject: [PATCH] bug fix

---
 lib/App/Netdisco/Core/Discover.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/App/Netdisco/Core/Discover.pm b/lib/App/Netdisco/Core/Discover.pm
index 1f26a226..a2d78c69 100644
--- a/lib/App/Netdisco/Core/Discover.pm
+++ b/lib/App/Netdisco/Core/Discover.pm
@@ -67,7 +67,7 @@ sub set_canonical_ip {
           next if $alias->alias eq $old_ip;
 
           foreach my $this (keys %$idmap) {
-              $anded_this = [(ref $this ? @$this : $this), 'op:and'];
+              my $anded_this = [(ref $this ? @$this : $this), 'op:and'];
 
               # lhs of device_identity matches device, rhs matches device_ip
               if (check_acl($device, $anded_this)