undef error when printing help

2015-02-06 09:50:49 +00:00
parent 6ab12424e6
commit adf659a40d
1 changed files with 2 additions and 1 deletions
--- a/Netdisco/bin/netdisco-do
+++ b/Netdisco/bin/netdisco-do
@@ -74,7 +74,8 @@ $ENV{DBIC_TRACE} ||= $sqltrace;
 Dancer::Logger->init('console', $CONFIG);

 # get requested action
-(my $action = shift @ARGV) =~ s/^set_//;
+(my $action = shift @ARGV) =~ s/^set_//
+  if scalar @ARGV;

 unless ($action) {
    pod2usage(