test for non-ref-ness
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 15 Dec 2007 03:05:36 +0000 (03:05 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 15 Dec 2007 03:05:36 +0000 (03:05 +0000)
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

index ff1689e..23e220d 100755 (executable)
@@ -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}];