From d390d1ae315bd9c9326c9ef76ebf74f57ddaa573 Mon Sep 17 00:00:00 2001
From: Bill Erickson <berick@esilibrary.com>
Date: Tue, 26 Jun 2012 09:21:57 -0400
Subject: [PATCH] Prevent "uninitialized value" warnings in parameter logging

Use of uninitialized value $p[0] in join or string at
/usr/local/share/perl/5.10.1/OpenSRF/Application.pm line 130.

This is caused when the array of method params contains null/undef
values.  Prevent the warnings by replacing these values w/ empty
strings.

Signed-off-by: Bill Erickson <berick@esilibrary.com>
Signed-off-by: Dan Scott <dscott@laurentian.ca>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---
 src/perl/lib/OpenSRF/Application.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/perl/lib/OpenSRF/Application.pm b/src/perl/lib/OpenSRF/Application.pm
index 9283b7f..0a5c188 100644
--- a/src/perl/lib/OpenSRF/Application.pm
+++ b/src/perl/lib/OpenSRF/Application.pm
@@ -146,7 +146,7 @@ sub handler {
 			if ($redact_params) {
 				$logdata .= "**PARAMS REDACTED**";
 			} else {
-				$logdata .= join(', ',@p);
+				$logdata .= join(', ', map { (defined $_) ? $_ : '' } @p);
 			}
 		}
 		$log->info($logdata);
-- 
2.43.2