[libweasel-perl] 11/24: * Fixes from testing

[Robert James Clay]

This is an automated email from the git hooks/post-receive script.

jame-guest pushed a commit to tag v0.02
in repository libweasel-perl.

commit 3ef983aa852673cb2440310ea13aaabbdc5e774c
Author: Erik Huelsmann <ehuels at gmail.com>
Date:   Fri Jun 17 10:38:14 2016 +0200

    * Fixes from testing
---
 lib/Weasel/WidgetHandlers.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/Weasel/WidgetHandlers.pm b/lib/Weasel/WidgetHandlers.pm
index 420b81d..14d9474 100644
--- a/lib/Weasel/WidgetHandlers.pm
+++ b/lib/Weasel/WidgetHandlers.pm
@@ -90,7 +90,7 @@ sub _cached_elem_att {
 
     return (exists $cache->{$att})
         ? $cache->{$att}
-        : ($cache->{$att} = $driver->get_attribute($_id));
+        : ($cache->{$att} = $driver->get_attribute($_id, $att));
 }
 
 sub best_match_handler_class {
@@ -129,14 +129,15 @@ sub best_match_handler_class {
 
             for my $att (keys %{$conditions->{attributes}}) {
                 next handler
-                    unless $conditions->{$att} eq _cached_elem_attr(
+                    unless $conditions->{attributes}->{$att}
+                      eq _cached_elem_att(
                         $elem_att_cache, $driver, $_id, $att);
                 $match_count++;
             }
 
             push @matches, {
                 count => $match_count,
-                handler => $handler,
+                class => $handler->{class},
             };
         }
     }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libweasel-perl.git