diff --git a/Netdisco/Changes b/Netdisco/Changes index de8f5f24..d49189dd 100644 --- a/Netdisco/Changes +++ b/Netdisco/Changes @@ -1,8 +1,12 @@ -2.028009_001 +2.028010 - 2014-07-22 [NEW FEATURES] - * Node Monitor admin panel and netdisco-do action + * Node Monitor admin panel and netdisco-do action (beta) + + [BUG FIXES] + + * Hash deref in Nbtstat.pm 2.028008 - 2014-07-22 diff --git a/Netdisco/lib/App/Netdisco.pm b/Netdisco/lib/App/Netdisco.pm index c1c51fc1..92dd6057 100644 --- a/Netdisco/lib/App/Netdisco.pm +++ b/Netdisco/lib/App/Netdisco.pm @@ -4,7 +4,7 @@ use strict; use warnings; use 5.010_000; -our $VERSION = '2.028009_001'; +our $VERSION = '2.028010'; use App::Netdisco::Configuration; =head1 NAME diff --git a/Netdisco/lib/App/Netdisco/AnyEvent/Nbtstat.pm b/Netdisco/lib/App/Netdisco/AnyEvent/Nbtstat.pm index b8075481..f8746706 100644 --- 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