From 38cca38c46f7613dcd5aff2e11ba6ad6153d0269 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@dechirico.(none)>
Date: Fri, 27 Mar 2009 15:28:02 +0100
Subject: test multiple calls to attribs

---
 lib/Tree/Template/Declare/DAG_Node.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Tree/Template/Declare/DAG_Node.pm b/lib/Tree/Template/Declare/DAG_Node.pm
index 45321da..806413d 100644
--- a/lib/Tree/Template/Declare/DAG_Node.pm
+++ b/lib/Tree/Template/Declare/DAG_Node.pm
@@ -50,7 +50,7 @@ sub set_node_name {
 sub set_node_attributes {
     my ($self,$node,$attrs)=@_;
 
-    return $node->attributes($attrs);
+    return $node->attributes({%{$node->attributes},%$attrs});
 }
 
 1;
-- 
cgit v1.2.3