checking for HASH ref explicitly

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@198 9efc2488-bf62-4759-914b-345cdb29e865

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