diff options
Diffstat (limited to 'thr.pl')
-rw-r--r-- | thr.pl | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -3,7 +3,8 @@ use strict; use warnings; use threads; use Glib; -use Queue; +use Thread::Queue::Event; +use Thread::Queue::Event::Glib; =head1 Signaling across threads to a Glib loop @@ -11,8 +12,8 @@ Looks like the best way is to use a pipe =cut -my $q=Glib::Thread::Queue->new(); -my $q2=Glib::Thread::Queue->new(); +my $q=Thread::Queue::Event->new()->with_role('Glib'); +my $q2=Thread::Queue::Event->new(); threads->create( sub{ |