[Opensrf-commits] r1639 - trunk/src/perl/lib/OpenSRF/Transport/SlimJabber

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-25 15:16:17 -0500 (Sun, 25 Jan 2009)
New Revision: 1639

Modified:
   trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm
Log:
make config parsing more tolerant

Modified: trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm	2009-01-23 21:40:26 UTC (rev 1638)
+++ trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm	2009-01-25 20:16:17 UTC (rev 1639)
@@ -98,9 +98,11 @@
         for my $router (@$routers) {
             if(ref $router) {
                 if( !$router->{services} || 
-                        ( ref($router->{services}) eq 'HASH' and 
-                            grep { $_ eq $self->{app} } @{$router->{services}->{service}} )  ||
-                        $router->{services}->{service} eq $self->{app}) {
+                    !$router->{services}->{service} || 
+                    ( 
+                        ref($router->{services}->{service}) eq 'ARRAY' and 
+                        grep { $_ eq $self->{app} } @{$router->{services}->{service}} )  ||
+                    $router->{services}->{service} eq $self->{app}) {
 
                     my $name = $router->{name};
                     my $domain = $router->{domain};