From 2bc54907e6a9d477c5bd18beae0a22c4195ab851 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Tue, 22 Jul 2014 22:38:41 +0100
Subject: [PATCH] release 2.028010

---
 Netdisco/Changes                              | 8 ++++++--
 Netdisco/lib/App/Netdisco.pm                  | 2 +-
 Netdisco/lib/App/Netdisco/AnyEvent/Nbtstat.pm | 4 ++--
 3 files changed, 9 insertions(+), 5 deletions(-)

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