[open-ils-commits] r8218 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: miker
Date: 2007-12-14 22:05:36 -0500 (Fri, 14 Dec 2007)
New Revision: 8218

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
test for non-ref-ness

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-15 03:02:16 UTC (rev 8217)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-15 03:05:36 UTC (rev 8218)
@@ -109,7 +109,7 @@
 	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}];