test for non-ref-ness

git-svn-id: svn://svn.open-ils.org/ILS/trunk@8218 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index ff1689e..23e220d 100755 (executable)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
@@ -109,7 +109,7 @@ sub do_class_search {
        my $auth                        = shift;
        my $args                        = shift;
 
-       if (ref($$args{service}) =~ /ARRAY/o) {
+       if (!ref($$args{service})) {
                $$args{service} = [$$args{service}];
                $$args{username} = [$$args{username}];
                $$args{password} = [$$args{password}];