[Opensrf-commits] r1632 - branches/rel_1_0/src/perl/lib/OpenSRF/Transport/SlimJabber

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-19 22:02:03 -0500 (Mon, 19 Jan 2009)
New Revision: 1632

Modified:
   branches/rel_1_0/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm
Log:
repaired config data structure ref check for registering routers

Modified: branches/rel_1_0/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm
===================================================================
--- branches/rel_1_0/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm	2009-01-19 15:12:22 UTC (rev 1631)
+++ branches/rel_1_0/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm	2009-01-20 03:02:03 UTC (rev 1632)
@@ -98,7 +98,7 @@
         for my $router (@$routers) {
             if(ref $router) {
                 if( !$router->{services} || 
-                        ( ref($router->{services}) eq 'ARRAY' and 
+                        ( ref($router->{services}) eq 'HASH' and 
                             grep { $_ eq $self->{app} } @{$router->{services}->{service}} )  ||
                         $router->{services}->{service} eq $self->{app}) {