From c85cacb2bc438725ee83553226e944f9f605d3b7 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 11 Mar 2005 22:02:43 +0000
Subject: [PATCH] make sure touser is passed on

---
 perl/Aranea.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 079e215a..7765af34 100644
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -405,7 +405,7 @@ sub input
 		$thing = $class->new();
 
 		# reconstitute the header but wth hop increased by one
-		$head = formathead($origin, $dts, ++$hop, $user, $group);
+		$head = formathead($origin, $dts, ++$hop, $user, $group, $tocall);
 		$thing->{Aranea} = "$head|$data";
 
 		# store useful data
-- 
2.34.1