move unknown user around

diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm
index 52230aa16c2db0c727b00982685aca091a0a66d3..3eb72d61bd9eb937ff346f8ed49d8a0548fb566e 100644 (file)
--- a/perl/Thingy/Hello.pm
+++ b/perl/Thingy/Hello.pm
@@ -119,7 +119,8 @@ sub handle
                                push @{$thing->{pc19n}}, $ur if $ur;
                        } else {
                                $thing->{pc16n} = $nref;
-                               $thing->{pc16u} = [$ur = $nref->add_user($user, $thing->{h})];
+                               $ur = $nref->add_user($user, $thing->{h});
+                               $thing->{pc16u} = [$ur];
                        }
                }
                $ur->np(1);