summaryrefslogtreecommitdiff
path: root/lib/Tree/Transform/XSLTish/Transformer.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Tree/Transform/XSLTish/Transformer.pm')
-rw-r--r--lib/Tree/Transform/XSLTish/Transformer.pm3
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;
}