From eb122dff5e787fcbee073b52965061ccc4e00775 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sun, 11 Apr 2021 17:42:45 -0700
Subject: [PATCH] Fix more perl warnings

---
 bind8/index.cgi | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/bind8/index.cgi b/bind8/index.cgi
index 5bb72392a..1d7212a59 100755
--- a/bind8/index.cgi
+++ b/bind8/index.cgi
@@ -501,6 +501,8 @@ sub compare_zones
 my @sp0 = split(/\./, lc($_[0] || ""));
 my @sp1 = split(/\./, lc($_[1] || ""));
 for(my $i=0; $i<@sp0 || $i<@sp1; $i++) {
+	$sp0[$i] = "" if (!defined($sp0[$i]));
+	$sp1[$i] = "" if (!defined($sp1[$i]));
 	if ($sp0[$i] =~ /^\d+$/ && $sp1[$i] =~ /^\d+$/) {
 		return -1 if ($sp0[$i] < $sp1[$i]);
 		return 1 if ($sp0[$i] > $sp1[$i]);