release 2.028010

2014-07-22 22:38:41 +01:00
parent 723d8b7d30
commit 18ec29a522
4 changed files with 10 additions and 6 deletions
--- a/Netdisco/lib/App/Netdisco/AnyEvent/Nbtstat.pm
+++ b/Netdisco/lib/App/Netdisco/AnyEvent/Nbtstat.pm
@@ -36,7 +36,7 @@ sub new {
    };

    # Nbtstat tasks
-    $self->{_tasks}     = {};
+    $self->{_tasks} = {};

    return $self;
 }
@@ -60,7 +60,7 @@ sub nbtstat {

    $self->{_tasks}{ $request->{destination} } = $request;

-    my $delay = $self->interval * scalar keys $self->{_tasks};
+    my $delay = $self->interval * scalar keys %{ $self->{_tasks} || {} };

    # There's probably a better way to throttle the sends
    # but this will work for now since we currently don't support retries