CosNaming

[Adam Cassar <adam cassar netregistry net>]

Hi Guys,

I have been attempting to get the ORbit bindings to work with perl...

Essentially I do something simmilar to the below:

use CORBA::ORBit idl => [ qw(blah.idl CosNaming.idl) ];

my $orb = CORBA::ORB_init("orbit-local-orb");
$poa = $orb->resolve_initial_references("RootPOA");

my $servant = new blah;

my $id = $poa->activate_object($servant);

my $ns = $orb->resolve_initial_references("NameService");

my $nc_root = [ { id => 'blah1', kind => '' } ];
my $nc_leaf = [ { id => 'blah1', kind => '' }, { id => 'blah2', kind => '' } ];

$ns->bind_new_context( $nc_root );
$ns->rebind( $nc_leaf, $servant);

Running this gives an error on the above line saying that the object was unknown and could not be martialed. Am I missing something obvious?

TIA