"any within struct" ORBit decoding problem

["Pete Kingswell" <pete anvil co uk>]

Hi,
I'm working on a system that has ACE/TAO servers with perl clients and want
to move the clients from COPE to ORBit.

I've found that decoding:

struct TestStruct1 {
    short sh1;
    any an1;
};

causes no problems for COPE::CORBA but causes libORBit.so [an orbit library
that perl loads] to crash with:

"** ERROR **: file orbit_typecode.c: line 307 (tc_dec): assertion failed:
(kind<CORBA_tk_last) aborting..."

I'm using ORBit 0.5.7, perl 5.005_03, CORBA::ORBit 0.4.3, TAO 1.1.10 and
COPE::CORBA 0.05_51 [plus patches] on RedHat Linux 2.2.14-6.1.1smp.  Please
note that in the system I'm working on, anys within structs are widespread
and reverting to an alternative data structure isn't really viable.

I can supply code for a simple TAO C++ server & perl CORBA::ORBit client
that implement passing the above structure.  Help would be vastly
appreciated!

Peter.