From f53c35acb999d3b8f45ea81e2e5f2247d4d3f25b Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Thu, 31 Jul 2014 11:42:26 +0100
Subject: [PATCH] Missing action to netdisco-do should not throw Perl error

---
 Netdisco/Changes         | 6 ++++++
 Netdisco/bin/netdisco-do | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/Netdisco/Changes b/Netdisco/Changes
index 2835204c..ee309134 100644
--- a/Netdisco/Changes
+++ b/Netdisco/Changes
@@ -1,3 +1,9 @@
+2.028014
+
+  [BUG FIXES]
+
+  * Missing action to netdisco-do should not throw Perl error
+
 2.028013 - 2014-07-31
 
   [ENHANCEMENTS]
diff --git a/Netdisco/bin/netdisco-do b/Netdisco/bin/netdisco-do
index 58bd329b..7d6457b9 100755
--- a/Netdisco/bin/netdisco-do
+++ b/Netdisco/bin/netdisco-do
@@ -65,7 +65,7 @@ schema('daemon')->deploy;
 # get requested action
 my $action = shift @ARGV;
 
-if (!length $action) {
+unless ($action) {
   error 'error: missing action!';
   exit (1);
 }