make things appear

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 52c622b0088b532877d78c9ff6f1a2c0558b8d7b..7f0134c33e32bb0b8061d18684245b514d51f6a4 100644 (file)
--- 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 69cf3ca2ac39f021b54e699e735071be683ebd90..7f4072358f90cf45baa64ef47f7abd7174df13ca 100644 (file)
--- 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};
 }