From 1f0e1261cb2bc64896c9eb6b2c0a89d5bd6e6a62 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@dechirico.(none)>
Date: Wed, 25 Mar 2009 15:56:13 +0100
Subject: now @_ is not clobbered (more tests needed)

---
 lib/Tree/Template/Declare.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib/Tree')

diff --git a/lib/Tree/Template/Declare.pm b/lib/Tree/Template/Declare.pm
index 372781b..8c33b52 100644
--- a/lib/Tree/Template/Declare.pm
+++ b/lib/Tree/Template/Declare.pm
@@ -2,6 +2,7 @@ package Tree::Template::Declare;
 use strict;
 use warnings;
 use Sub::Exporter;
+use Devel::Caller 'caller_args';
 use Tree::DAG_Node::XPath;
 
 our $VERSION='0.1';
@@ -17,7 +18,7 @@ our $current_node;
 
 sub tree(&) {
     local $current_node=undef;
-    my ($ret)=$_[0]->();
+    my ($ret)=$_[0]->(caller_args(1));
     #warn "returning @{[ $ret->name ]}\n";
     return $ret;
 }
@@ -27,7 +28,7 @@ sub node(&) {
     #warn "new node\n";
     {
         local $current_node=$node;
-        $_[0]->();
+        $_[0]->(caller_args(1));
     }
     if ($current_node) {
         #warn "adding to parent (@{[ $current_node->name ]})\n";
-- 
cgit v1.2.3