From adf659a40d5cd7314f71649a50dd9efd176a6c96 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Fri, 6 Feb 2015 09:50:49 +0000
Subject: [PATCH] undef error when printing help

---
 Netdisco/bin/netdisco-do | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Netdisco/bin/netdisco-do b/Netdisco/bin/netdisco-do
index 1ae955b2..73bba57d 100755
--- 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(