prossibly better node equality test

1 files changed, 2 insertions, 1 deletions

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;
         }