Code

fix evil autoderef
authorMatthias Bethke <matthias.bethke@financial.com>
Tue, 21 Jul 2015 08:00:49 +0000 (15:00 +0700)
committerMatthias Bethke <matthias.bethke@financial.com>
Tue, 21 Jul 2015 08:00:49 +0000 (15:00 +0700)
bindings/perl/t/01_methods.t

index 2f7818b15799cb650e6d2288072286f4426ac583..4e94f8e8d235f53fa742bd716a1b738b6aade28f 100644 (file)
@@ -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");
 }