From b045cd59e152bf125fb32d3c28cc49cf659b8a4d Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 19 Feb 2005 02:53:28 +0000
Subject: [PATCH] make things appear

---
 perl/Aranea.pm    | 16 +++++++++-------
 perl/Thingy/Rt.pm |  2 +-
 2 files changed, 10 insertions(+), 8 deletions(-)

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
diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm
index 69cf3ca2..7f407235 100644
--- a/perl/Thingy/Rt.pm
+++ b/perl/Thingy/Rt.pm
@@ -30,7 +30,7 @@ sub gen_Aranea
 		my @items;
 		push @items, 't', $thing->{t} if $thing->{t};
 		push @items, 'd', $thing->{d} if $thing->{d};
-	 	$thing->{Aranea} = Aranea::genmsg($thing, 'RT');
+	 	$thing->{Aranea} = Aranea::genmsg($thing, 'RT', @items) if @items;
 	}
  	return $thing->{Aranea};
 }
-- 
2.34.1