tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

+ Fix #237

This commit is contained in:
garnier-quentin 2015-12-08 15:35:30 +01:00
parent c8513a2522
commit ae5b309103
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
centreon/plugins/alternative/Getopt.pm
View File

@ -58,7 +58,7 @@ sub GetOptions {
my $search_str = ',' . join(',', keys %opts) . ',';
my $num_args = scalar(@ARGV);
for (my $i = 0; $i < $num_args;) {
if ($ARGV[$i] =~ /^--(.*?)(?:=|$)(.*)/) {
if (defined($ARGV[$i]) && $ARGV[$i] =~ /^--(.*?)(?:=|$)(.*)/) {
my ($option, $value) = ($1, $2);
# find type of option
@ -89,7 +89,7 @@ sub GetOptions {
splice @ARGV, $i, 1;
$num_args--;
} else {
warn "argument $ARGV[$i] alone" if ($warn_message == 1 && $i != 0);
warn "argument $ARGV[$i] alone" if ($warn_message == 1 && $i != 0 && defined($ARGV[$i]));
$i++;
}
}