mirror of
https://github.com/webmin/webmin.git
synced 2026-07-04 17:40:30 +01:00
fix perl warning
This commit is contained in:
@@ -60,7 +60,7 @@ my $i = 0;
|
||||
foreach my $a (@{$actionlist->{'words'}}, undef) {
|
||||
my $action;
|
||||
my %opts;
|
||||
if ($a =~ /^(\S+)\[(.*)\]$/) {
|
||||
if ($a && $a =~ /^(\S+)\[(.*)\]$/) {
|
||||
$action = $1;
|
||||
%opts = map { split(/=/, $_) } split(/,\s*/, $2);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user