mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 14:13:29 +00:00
Fix perl error https://github.com/webmin/webmin/issues/1242
This commit is contained in:
@@ -36,7 +36,7 @@ else {
|
||||
}
|
||||
my $i = 0;
|
||||
foreach my $g (@gens, { }) {
|
||||
my @gv = @{$g->{'generate'}};
|
||||
my @gv = $g->{'generate'} ? @{$g->{'generate'}} : ( );
|
||||
my @cols = ( );
|
||||
my @r = $gv[0] =~ /^(\d+)-(\d+)(\/(\d+))?$/ ? ( $1, $2, $4 ) : ( );
|
||||
push(@cols, &ui_select("type_$i", uc($gv[2]),
|
||||
|
||||
Reference in New Issue
Block a user