From 97e021d74b60863612f41e8a45f4144fc275aaaf Mon Sep 17 00:00:00 2001
From: Chris Sharp <csharp@georgialibraries.org>
Date: Tue, 31 Jan 2023 13:11:57 -0500
Subject: [PATCH] quiet more useless warnings

---
 Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm
index 743abcd14b..859d96019d 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm
@@ -279,7 +279,9 @@ sub do_class_search {
                 push @results, $res->{result}; 
                 push @connections, $res->{connection}; 
 
-                $logger->debug("z3950: Result object: $results[$i], Connection object: $connections[$i]");
+                if ($results[$i] && $connections[$i]) {
+			$logger->debug("z3950: Result object: $results[$i], Connection object: $connections[$i]");
+		}
             } 
         }
 
-- 
2.11.0