From 0e8d291d6375d1367ee802bb03233f3ef02104c4 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sun, 3 Jul 2016 07:02:23 -0700
Subject: [PATCH] fix perl warnings

---
 bind8/bind8-lib.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bind8/bind8-lib.pl b/bind8/bind8-lib.pl
index 31ff05b17..96a617668 100755
--- a/bind8/bind8-lib.pl
+++ b/bind8/bind8-lib.pl
@@ -2355,7 +2355,7 @@ foreach my $k (keys %znc) {
 		push(@rv, { 'name' => $name,
 			    'type' => $type,
 			    'index' => $index,
-			    'view' => $view eq '*' ? undef : $view,
+			    'view' => !$view || $view eq '*' ? undef : $view,
 			    'file' => $file });
 		}
 	elsif ($k =~ /^view_(\d+)$/) {
@@ -2367,7 +2367,7 @@ foreach my $k (keys %znc) {
 		}
 	}
 foreach my $z (@rv) {
-	if ($z->{'type'} ne 'view' && $z->{'view'} ne '*') {
+	if ($z->{'type'} ne 'view' && $z->{'view'} && $z->{'view'} ne '*') {
 		$z->{'viewindex'} = $viewidx{$z->{'view'}};
 		}
 	}