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)