From 078449d56d9c233b0b074ba3b8c9e96c4dc73678 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sun, 19 Jan 2014 16:04:41 +0000
Subject: [PATCH] device property in _no/_only fails with error

---
 Netdisco/Changes                         | 10 ++++++++++
 Netdisco/lib/App/Netdisco/Util/Device.pm |  2 +-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/Netdisco/Changes b/Netdisco/Changes
index 90dd86f3..1505b68c 100644
--- a/Netdisco/Changes
+++ b/Netdisco/Changes
@@ -1,3 +1,13 @@
+2.022000
+
+  [NEW FEATURES]
+
+  * 
+
+  [BUG FIXES]
+
+  * [#85] device property in _no/_only fails with error (R. Kerr)
+
 2.021001
 
   [NEW FEATURES]
diff --git a/Netdisco/lib/App/Netdisco/Util/Device.pm b/Netdisco/lib/App/Netdisco/Util/Device.pm
index bb5f78be..64ca06d9 100644
--- a/Netdisco/lib/App/Netdisco/Util/Device.pm
+++ b/Netdisco/lib/App/Netdisco/Util/Device.pm
@@ -92,7 +92,7 @@ sub check_acl {
 
           # lazy version of vendor: and model:
           if ($device->can($prop) and defined $device->prop
-              and $device->prop =~ m/^$match$/) {
+              and $device->$prop =~ m/^$match$/) {
               return 1;
           }