From 68ee754a9302f1af76236170fe408c9d5557dee8 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@sardina.(none)>
Date: Sun, 28 Jun 2009 09:17:47 +0200
Subject: prossibly better node equality test

---
 lib/Tree/Transform/XSLTish/Transformer.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Tree/Transform/XSLTish/Transformer.pm b/lib/Tree/Transform/XSLTish/Transformer.pm
index a36bd6a..d5ad6ec 100644
--- a/lib/Tree/Transform/XSLTish/Transformer.pm
+++ b/lib/Tree/Transform/XSLTish/Transformer.pm
@@ -182,7 +182,7 @@ sub rule_matches {
     my $test_sub= ($node->can('isSameNode'))?
         sub { grep { $node->isSameNode($_) } @_ }
             :
-        sub { grep { "$node" eq "$_" } @_ };
+        sub { grep { $node eq $_ } @_ };
 
     while ($base_node) {
 
@@ -190,6 +190,7 @@ sub rule_matches {
         my @selected_nodes=$self->engine->findnodes($path,$base_node);
         #warn "#  selected: @selected_nodes\n";
         if ($test_sub->(@selected_nodes)) {
+            #warn "ok\n";
             return 1;
         }
 
-- 
cgit v1.2.3