X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAranea.pm;h=7765af34fead427e39b4e7a12b2c95324994147d;hb=c85cacb2bc438725ee83553226e944f9f605d3b7;hp=079e215a8cd0741ed32141014ccc6098a66bfad5;hpb=0c5ba14533787430381b46739575d876cd1186ba;p=spider.git

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