Re: Tk Mainloop - no exit.

I'm not sure what Asterisk::AMI does, but it seems to be blocking your Tk eventloop. You may need to the Asterisk tasks in a thread, then use Tk::fileevent to read the socket. See Re: Perl Tk and Threads and google for "perl tk threads" for other examples.

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Comment on Re: Tk Mainloop - no exit.

Replies are listed 'Best First'.
Re^2: Tk Mainloop - no exit. by Laotsu (Initiate) on Nov 09, 2010 at 05:04 UTC
zentara, Asterisk::AMI is the management interface to an Asterisk VOIP server. I use it to make calls, inject DTMF, hangup, etc. It can be event driven, but I am not using callbacks. What I don't understand is that I disconnect from it and undef $asterisk, but something is lingering. I was hoping there was some way to completely remove any remnants of my call to asterisk::AMI. I'd rather not start new threads.	[reply]
Re^3: Tk Mainloop - no exit. by zentara (Cardinal) on Nov 09, 2010 at 12:41 UTC
I was hoping there was some way to completely remove any remnants of my call to asterisk::AMI. There may be some way to completely remove all remnants of the object, possibly with something like this: `undef @$asterisk;` [download] Also see "cleaning out" object data and Object::Destroyer I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply] [d/l]
Re^4: Tk Mainloop - no exit. by Laotsu (Initiate) on Nov 11, 2010 at 05:40 UTC
I was trying undef without success. I was hopeful about Object::Destroyer, but that didn't help my problem. It was good to discover though! But I'm about to give up. The strange thing is that creating a totally unrelated object can cause Mainloop to not exit. Why would Mainloop even care?	[reply]
Re^5: Tk Mainloop - no exit. by zentara (Cardinal) on Nov 11, 2010 at 13:00 UTC