make sure touser is passed on

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 079e215a8cd0741ed32141014ccc6098a66bfad5..7765af34fead427e39b4e7a12b2c95324994147d 100644 (file)
--- 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