Hi,

Platform: Windows NT 4.0
Perl Version: Activestate Perl 5.6 (Build 615)

I have a ATL based COM server that exposes a dual interface.
It uses the connection point mechanism to post events to interested
clients. One such event is informing the client if some error occurred
in  the last invoked method. [Though there are other ways to get the
last error, to accommodate multiple servers in a generic way, this
approach becomes necessary].

I use Perl clients. Now, from the Perl event handler, when I get the 
event that informs that an error has occurred, I would like to end 
the Perl script. The server should go down if there are no clients.
However, if I call exit from the event handler, the reference counts 
(perhaps) are not handled properly and the server does not quit even 
when there are no clients.

Has anybody faced this problem? Any ideas of how I can overcome 
this?

I tried unsubscribing to events and uninitializing COM in the event
handler before exiting, but they did not help.

If I set some flag indicating that an error has occurred and exit 
outside the Perl event handler function, the reference counts go down
and the server shuts down. I cannot use this approach due to 
design restrictions.

Any pointers as to how to solve this will be appreciated.

Thanks,
Raj

_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Reply via email to