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

---
 bind8/bind8-lib.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bind8/bind8-lib.pl b/bind8/bind8-lib.pl
index 96a617668..6aea20594 100755
--- a/bind8/bind8-lib.pl
+++ b/bind8/bind8-lib.pl
@@ -756,7 +756,7 @@ my ($rev, $revconf, $revfile, $revrec, $addr, $ipv6);
 
 # find reverse domain
 my @zl = grep { $_->{'type'} ne 'view' } &list_zone_names();
-if ($_[1] ne '' && $_[1] ne 'any') {
+if ($_[1] && $_[1] ne 'any') {
 	@zl = grep { $_->{'view'} && $_->{'viewindex'} == $_[1] } @zl;
 	}
 else {