diff options
-rw-r--r-- | lib/Tree/Transform/XSLTish/Transformer.pm | 3 |
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; } |