From: minima Date: Tue, 22 Feb 2005 16:15:45 +0000 (+0000) Subject: fix np ambiguity X-Git-Tag: R_1_52~167 X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f15868bb42d0fd790dd41a886fc14127f4cf41c;p=spider.git fix np ambiguity --- diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm index cd31842f..9c6a539f 100644 --- a/perl/Thingy/Hello.pm +++ b/perl/Thingy/Hello.pm @@ -118,14 +118,13 @@ sub handle if ($uref->is_node || $uref->is_aranea) { push @ref, $nref->add($user, $thing->{v}, $thing->{h}); push @{$thing->{pc19n}}, @ref if @ref; + do $_->np(1) for @ref; } else { $thing->{pc16n} = $nref; push @ref, $nref->add_user($user, $thing->{h}); $thing->{pc16u} = \@ref if @ref; } - $ur = Route::get($user); } - $ur->np(1); } else { $nref->version($thing->{v}) unless $nref->version; $nref->build($thing->{b}) unless $nref->build;