From: minima Date: Thu, 24 Feb 2005 19:17:25 +0000 (+0000) Subject: allow null version on hello X-Git-Tag: R_1_52~134 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=46094ae6d3872b5ce10ea544c83de636f8834e4d;p=spider.git allow null version on hello --- diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm index a23bb438..aa51de1c 100644 --- a/perl/Thingy/Hello.pm +++ b/perl/Thingy/Hello.pm @@ -116,12 +116,12 @@ sub handle my @ref; my $uref = DXUser->get_current($user) || Thingy::Rt::_upd_user_rec($user, $origin)->put; if ($uref->is_node || $uref->is_aranea) { - push @ref, $nref->add($user, $thing->{v}, $thing->{h}); + push @ref, $nref->add($user, $thing->{v} || 0, $thing->{h} || 0); push @{$thing->{pc19n}}, @ref if @ref; do $_->np(1) for @ref; } else { $thing->{pc16n} = $nref; - push @ref, $nref->add_user($user, $thing->{h}); + push @ref, $nref->add_user($user, $thing->{h} || 0); $thing->{pc16u} = \@ref if @ref; } }