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/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);
 }