fix np ambiguity
authorminima <minima>
Tue, 22 Feb 2005 16:15:45 +0000 (16:15 +0000)
committerminima <minima>
Tue, 22 Feb 2005 16:15:45 +0000 (16:15 +0000)
perl/Thingy/Hello.pm

index cd31842fd51b3555227ababf540c4c5280d7aa8e..9c6a539f8255f39569574019bbbb504a28c906f0 100644 (file)
@@ -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;