From 2c2c035c38680dc89ed1836c003b66c83152cfbe Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sun, 18 Aug 2019 17:57:37 -0700
Subject: [PATCH] Generate is always an array ref

---
 bind8/list_gen.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bind8/list_gen.cgi b/bind8/list_gen.cgi
index 15cb3fff6..256f684d4 100755
--- a/bind8/list_gen.cgi
+++ b/bind8/list_gen.cgi
@@ -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]),