--- nfo/perl/libs/POE/Component/ServiceRegistrar.pm	2003/06/29 01:35:30	1.1
+++ nfo/perl/libs/POE/Component/ServiceRegistrar.pm	2003/06/29 11:43:14	1.2
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: ServiceRegistrar.pm,v 1.1 2003/06/29 01:35:30 joko Exp $
+##  $Id: ServiceRegistrar.pm,v 1.2 2003/06/29 11:43:14 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: ServiceRegistrar.pm,v $
+##  Revision 1.2  2003/06/29 11:43:14  joko
+##  fixed return value
+##
 ##  Revision 1.1  2003/06/29 01:35:30  joko
 ##  initial commit
 ##
@@ -46,7 +49,7 @@
   my ( $self, $kernel, $heap ) = @_[ OBJECT, KERNEL, HEAP ];
   $self->debug("_start");
   
-  # V1 - Announce ourselves as global singleton at Kernel side.
+  # V1 - Announce ourselves as "global singleton" session at Kernel side.
   $kernel->alias_set("ServiceRegistrar");
 
   # V2 - Also announce to the IKC infrastructure component.
@@ -96,7 +99,7 @@
   #$self->debug($sender->[0]->{from}->{kernel});
   
   # postback value via rsvp-mechanism (see perldoc POE::Component::IKC::Responder)
-  return 'LEASE_OK2';
+  return 'LEASE_OK';
 }