From 068d6278347ea72bcfef931b0a63403615dc09e4 Mon Sep 17 00:00:00 2001 From: Kyle M Hall 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 --- 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 7f298d8fa0..95ad8b0a8e 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.20.1