X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAranea.pm;h=7f0134c33e32bb0b8061d18684245b514d51f6a4;hb=b045cd59e152bf125fb32d3c28cc49cf659b8a4d;hp=52c622b0088b532877d78c9ff6f1a2c0558b8d7b;hpb=00a2286d015f9c14bca150de6957057588b4a0f6;p=spider.git

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 52c622b0..7f0134c3 100644
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -326,15 +326,17 @@ sub input
 		$thing->{user} = $user if $user;
 		$thing->{hopsaway} = $hop; 
 
-		for (split(/,/, $rdata)) {
-			if (/=/) {
-				my ($k,$v) = split /=/, $_, 2;
-				$thing->{$k} = tdecode($v);
-			} else {
-				$thing->{$_} = 1;
+		if ($rdata) {
+			for (split(/,/, $rdata)) {
+				if (/=/) {
+					my ($k,$v) = split /=/, $_, 2;
+					$thing->{$k} = tdecode($v);
+				} else {
+					$thing->{$_} = 1;
+				}
 			}
 		}
-
+		
 		# post process the thing, this generally adds on semantic meaning
 		# does parameter checking etc. It also adds / prepares the thingy so
 		# this is compatible with older protocol and arranges data so