provide $_ in scan_dq_nodes

[dbsrgits/Data-Query.git] / lib / Data / Query / ExprHelpers.pm

diff --git a/lib/Data/Query/ExprHelpers.pm b/lib/Data/Query/ExprHelpers.pm
index a48f687..d95fc85 100644 (file)
--- a/lib/Data/Query/ExprHelpers.pm
+++ b/lib/Data/Query/ExprHelpers.pm
@@ -132,6 +132,7 @@ sub scan_dq_nodes {
   my ($cb_map, @queue) = @_;
   while (my $node = shift @queue) {
     if ($node->{type} and my $cb = $cb_map->{$node->{type}}) {
+      local $_ = $node;
       $cb->($node);
     }
     push @queue,