--- nfo/perl/libs/POE/Component/LookupClient.pm 2003/07/01 13:13:44 1.3 +++ nfo/perl/libs/POE/Component/LookupClient.pm 2003/07/01 17:08:17 1.4 @@ -1,7 +1,10 @@ ## ------------------------------------------------------------------------ -## $Id: LookupClient.pm,v 1.3 2003/07/01 13:13:44 joko Exp $ +## $Id: LookupClient.pm,v 1.4 2003/07/01 17:08:17 joko Exp $ ## ------------------------------------------------------------------------ ## $Log: LookupClient.pm,v $ +## Revision 1.4 2003/07/01 17:08:17 joko +## fixed option-to-component propagation +## ## Revision 1.3 2003/07/01 13:13:44 joko ## made "port" and "host" configurable from script ## @@ -82,7 +85,7 @@ #create_ikc_client( host => $host, port => 30, name => 'Client', on_connect => $self->{options}->{on_connect} ); create_ikc_client( - host => $self->{options}->{host}, + ip => $self->{options}->{host}, port => $self->{options}->{port}, #name => 'Client', #on_connect => sub { $self->build(); },