From 037daa4134eda1fb08c763f1f477bef4c8ef4228 Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 2 Mar 2005 22:50:45 +0000 Subject: [PATCH] we now return undef if any level of the sought config doesn't exist git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@157 9efc2488-bf62-4759-914b-345cdb29e865 --- src/perlmods/OpenSRF/Utils/SettingsClient.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/perlmods/OpenSRF/Utils/SettingsClient.pm b/src/perlmods/OpenSRF/Utils/SettingsClient.pm index 6846b70..b7fed49 100755 --- a/src/perlmods/OpenSRF/Utils/SettingsClient.pm +++ b/src/perlmods/OpenSRF/Utils/SettingsClient.pm @@ -45,6 +45,9 @@ sub config_value { # call out to settings server when necessary.... try { for my $key (@keys) { + if(!defined($hash)){ + return undef; + } $hash = $hash->{$key}; } -- 2.11.0