reception of message in perl :: Segmentation Fault

Hello everybody,

I have written a programm in perl which use the tibco-rv tecnology.

the basis is simple:

1) I create the environment

Tibrv::tibrv_Open();

2) I create a Transport

Tibrv::tibrvTransport_Create($transport,$service,$network,$daemon);

3) I create a Message

Tibrv::tibrvMsg_AddI32Ex($msg, "METHOD_ID",101);

...

Tibrv::tibrvMsg_AddI32Ex($msg, "ENCODING",0);

4) I create a inbox and a subject for the reply

Tibrv::tibrvTransport_CreateInbox($transport,$my_inbox,Tibrv::TIBRV_SUBJECT_MAX);

$status = Tibrv::tibrvMsg_SetReplySubject($msg,$my_inbox);

5) I create a listener to listen the reply

Tibrv::tibrvEvent_CreateListener($event,$event_queue,"listKey",$transport,$my_inbox,"listener");

6) I send the message on the transport

Tibrv::tibrvTransport_Send($transport,$msg);

7) I treat the reply

tibrvQueue_Create($event_queue);

...

Tibrv::tibrvQueue_TimedDispatch($event_queue,10);

But the probleme is that sometime during the reception of the reply a SEGMENTATION FAULT error appear.

I don't know Why

Someone can help me?

Thank you

Message was edited by: toll.dibaya@sgcib.com

Login