From 320d95463f2d936e627e485702949c9cee704d0b Mon Sep 17 00:00:00 2001 From: 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