Missing action to netdisco-do should not throw Perl error

2014-07-31 11:42:26 +01:00
parent 838adb087b
commit f53c35acb9
2 changed files with 7 additions and 1 deletions
--- 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]
--- 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);
 }