From 320d95463f2d936e627e485702949c9cee704d0b Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 22 Feb 2005 16:11:11 +0000
Subject: [PATCH] fix 'new hello'?

---
 perl/Route/Node.pm   |  4 ++--
 perl/Thingy/Hello.pm | 10 ++++++----
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index 2350f86f..d46733bb 100644
--- a/perl/Route/Node.pm
+++ b/perl/Route/Node.pm
@@ -141,10 +141,10 @@ sub add_user
 	my $uref = Route::User::get($ucall);
 	my @out;
 	if ($uref) {
-		@out = $uref->addparent($self);
+		push @out, $uref->addparent($self);
 	} else {
 		$uref = Route::User->new($ucall, $self->{call}, @_);
-		@out = $uref;
+		push @out, $uref;
 	}
 	$self->_adduser($uref);
 	$self->{usercount} = scalar @{$self->{users}};
diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm
index 3eb72d61..cd31842f 100644
--- a/perl/Thingy/Hello.pm
+++ b/perl/Thingy/Hello.pm
@@ -113,15 +113,17 @@ sub handle
 	if (my $user = $thing->{user}) {
 		my $ur = Route::get($user);
 		unless ($ur) {
+			my @ref;
 			my $uref = DXUser->get_current($user) || Thingy::Hello::_upd_user_rec($user, $origin)->put;
 			if ($uref->is_node || $uref->is_aranea) {
-			    $ur = $nref->add($user, $thing->{v}, $thing->{h});
-				push @{$thing->{pc19n}}, $ur if $ur;
+			    push @ref, $nref->add($user, $thing->{v}, $thing->{h});
+				push @{$thing->{pc19n}}, @ref if @ref;
 			} else {
 				$thing->{pc16n} = $nref;
-				$ur = $nref->add_user($user, $thing->{h});
-				$thing->{pc16u} = [$ur];
+				push @ref, $nref->add_user($user, $thing->{h});
+				$thing->{pc16u} = \@ref if @ref;
 			}
+			$ur = Route::get($user);
 		}
 		$ur->np(1);
 	} else {
-- 
2.43.0