From 18ec29a522c07ea023e8a242b278700707d173ec 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/META.yml                             | 2 +-
 Netdisco/lib/App/Netdisco.pm                  | 2 +-
 Netdisco/lib/App/Netdisco/AnyEvent/Nbtstat.pm | 4 ++--
 4 files changed, 10 insertions(+), 6 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/META.yml b/Netdisco/META.yml
index 02c6fdec..f498134b 100644
--- a/Netdisco/META.yml
+++ b/Netdisco/META.yml
@@ -81,4 +81,4 @@ resources:
   homepage: http://netdisco.org/
   license: http://opensource.org/licenses/bsd-license.php
   repository: git://git.code.sf.net/p/netdisco/netdisco-ng
-version: 2.028009_001
+version: 2.028010
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