From c80f8bd00c1981b4118618dd6935cf33f7e10aa1 Mon Sep 17 00:00:00 2001
From: Matthias Bethke <matthias.bethke@financial.com>
Date: Tue, 21 Jul 2015 15:00:49 +0700
Subject: [PATCH] fix evil autoderef

---
 bindings/perl/t/01_methods.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bindings/perl/t/01_methods.t b/bindings/perl/t/01_methods.t
index 2f7818b1..4e94f8e8 100644
--- a/bindings/perl/t/01_methods.t
+++ b/bindings/perl/t/01_methods.t
@@ -16,7 +16,7 @@ sub test_query {
     my ($nresults, $resultdata) = @$results;
     my $r = $s->getval(%{Collectd::Unixsock::_parse_identifier($attr)});
     is(ref $r, 'HASH', "Got a result for $attr");
-    is(scalar keys $r, $nresults, "$nresults result result for $attr");
+    is(scalar keys %$r, $nresults, "$nresults result result for $attr");
     is_deeply($r, $resultdata, "Data or $attr matches");
 }
 
-- 
2.11.0