make the ping stuff not crash immediately

[spider.git] / perl / Thingy / Rt.pm

diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm
index 685ef0c4d5ef7acaf45e47fa7fc03c2ff3423c43..13756c2265bd48b2bb84d5c8f7aeda2e9a1b609d 100644 (file)
--- a/perl/Thingy/Rt.pm
+++ b/perl/Thingy/Rt.pm
@@ -191,7 +191,7 @@ sub _add_user
        my $flag = shift;
        
        my @out = $node->add_user($user, $flag);
-       my $ur = _upd_user_rec($user, $node);
+       my $ur = _upd_user_rec($user, $node->{call});
        $ur->put;
        return @out;
 }