From 9a4f389483d39a1c2735e6f1f8a924080a5c8d1b Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sat, 15 Dec 2007 03:05:36 +0000
Subject: [PATCH] test for non-ref-ness

git-svn-id: svn://svn.open-ils.org/ILS/trunk@8218 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index ff1689e917..23e220d6d5 100755
--- 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}];
-- 
2.43.2