Skip to content
Snippets Groups Projects
Commit 9ce5fb2c authored by Patrick Meidl's avatar Patrick Meidl
Browse files

minor fix

parent c8bc9e24
No related branches found
No related tags found
No related merge requests found
......@@ -194,8 +194,9 @@ sub parse_options {
next if ($i++ % 2);
my $required = $params{$param};
my $list = 1 if ($param =~ /\@$/);
my $flag = 1 if ($param =~ /!$/);
my ($list, $flag);
$list = 1 if ($param =~ /\@$/);
$flag = 1 if ($param =~ /!$/);
$param =~ s/(^\w+).*/$1/;
$self->comma_to_list($param) if ($list);
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment