remove useless option from changeIobStatus

This commit is contained in:
Graham Knop 2011-07-04 12:15:32 -05:00
parent 6d4d1af28f
commit 279d0c3d30

View file

@ -36,8 +36,8 @@ sub validate_args {
sub run {
my ($self, $opt, $args) = @_;
my ($configFile, $help, $quiet, $whatsHappening, $newStatus, $currentStatus, $userMessage, $userMessageFile) =
@{$opt}{qw(configfile help quiet whatshappening newstatus currentstatus usermessage usermessagefile)};
my ($configFile, $quiet, $whatsHappening, $newStatus, $currentStatus, $userMessage, $userMessageFile) =
@{$opt}{qw(configfile quiet whatshappening newstatus currentstatus usermessage usermessagefile)};
$whatsHappening ||= "Automatically signed out.";
$newStatus ||= "Out";
$currentStatus ||= "In";