From dbd9d8a6b6a17400aa14323cd350131e2ae7b229 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Thu, 26 Mar 2020 08:53:59 -0400
Subject: [PATCH] Bug 24964: [19.11.x] Fix perl critic warning

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

Signed-off-by: Joy Nelson <joy@bywatersolutions.com>
(cherry picked from commit 96956fee2440f20a112bc1413253d6043ada704f)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
---
 C4/Utils/DataTables/Members.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Utils/DataTables/Members.pm b/C4/Utils/DataTables/Members.pm
index 609e0ee0a9..88185a04a4 100644
--- a/C4/Utils/DataTables/Members.pm
+++ b/C4/Utils/DataTables/Members.pm
@@ -172,7 +172,7 @@ sub search {
         push @where_args, ($has_permission->{module_bit}) x 2, $has_permission->{subpermission};
     }
 
-    my $where = " WHERE " . join (" AND ", @where_strs) if @where_strs;
+    my $where = @where_strs ? " WHERE " . join (" AND ", @where_strs) : undef;
     my $orderby = dt_build_orderby($dt_params);
 
     my $limit;
-- 
2.39.5