Generate is always an array ref

This commit is contained in:
Jamie Cameron
2019-08-18 17:57:37 -07:00
parent d6ff157597
commit 2c2c035c38

View File

@@ -36,7 +36,7 @@ else {
}
my $i = 0;
foreach my $g (@gens, { }) {
my @gv = $g->{'generate'};
my @gv = @{$g->{'generate'}};
my @cols = ( );
my @r = $gv[0] =~ /^(\d+)-(\d+)(\/(\d+))?$/ ? ( $1, $2, $4 ) : ( );
push(@cols, &ui_select("type_$i", uc($gv[2]),