diff options
| author | dakkar <dakkar@thenautilus.net> | 2009-04-25 09:51:44 +0200 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2009-04-25 09:51:44 +0200 |
| commit | 99559b1665f27950e33ddd3eb7dd9bc9c61e12db (patch) | |
| tree | e757031b3f2e85c9ebe47a742ad4cae368c81705 /lib | |
| parent | added "attach_nodes" function (undocumented for now) (diff) | |
| download | Tree-Template-Declare-99559b1665f27950e33ddd3eb7dd9bc9c61e12db.tar.gz Tree-Template-Declare-99559b1665f27950e33ddd3eb7dd9bc9c61e12db.tar.bz2 Tree-Template-Declare-99559b1665f27950e33ddd3eb7dd9bc9c61e12db.zip | |
passes critic, but changes for "attach_nodes" are wrong
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Tree/Template/Declare.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/Tree/Template/Declare.pm b/lib/Tree/Template/Declare.pm index 356c2fd..38f933c 100644 --- a/lib/Tree/Template/Declare.pm +++ b/lib/Tree/Template/Declare.pm @@ -64,15 +64,17 @@ sub _build_group { local $current_node[0]=$node; $_[0]->(caller_args(1)); } - if ($current_node[0] && !defined(wantarray)) { + if ($current_node[0] && !defined wantarray) { $builder->add_child_node($current_node[0],$node); } return $node; }, attach_nodes => sub { if ($current_node[0]) { - $builder->add_child_node($current_node[0],$_) - for @_; + for my $newnode (@_) { + $builder->add_child_node($current_node[0], + $newnode); + } } }, name => sub ($) { |