From df8e4b63de92021c4c712e5e88a4ffee43768f3f Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 7 Mar 2005 22:17:47 +0000
Subject: [PATCH] checking for HASH ref explicitly

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@198 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Utils/SettingsClient.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/perlmods/OpenSRF/Utils/SettingsClient.pm b/src/perlmods/OpenSRF/Utils/SettingsClient.pm
index b7fed49..2568172 100755
--- a/src/perlmods/OpenSRF/Utils/SettingsClient.pm
+++ b/src/perlmods/OpenSRF/Utils/SettingsClient.pm
@@ -45,7 +45,7 @@ sub config_value {
 	# call out to settings server when necessary....
 	try {
 		for my $key (@keys) {
-			if(!defined($hash)){
+			if(!ref($hash) eq 'HASH'){
 				return undef;
 			}
 			$hash = $hash->{$key};
-- 
2.11.0