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

diff --git a/src/perlmods/OpenSRF/Utils/SettingsClient.pm b/src/perlmods/OpenSRF/Utils/SettingsClient.pm
index 6846b70..b7fed49 100755 (executable)
--- 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};
                }