diff options
| author | dakkar <dakkar@thenautilus.net> | 2010-07-11 21:28:59 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2010-07-11 21:28:59 +0100 |
| commit | 852eff7457517966f98f9a936ac7d5762da7aa0c (patch) | |
| tree | 2dd840bc20cde12e82256a44eb020386c1f859f1 /lib/Thread | |
| parent | now it compiles (diff) | |
| download | Thread-Task-852eff7457517966f98f9a936ac7d5762da7aa0c.tar.gz Thread-Task-852eff7457517966f98f9a936ac7d5762da7aa0c.tar.bz2 Thread-Task-852eff7457517966f98f9a936ac7d5762da7aa0c.zip | |
test for TT:Thread
Diffstat (limited to 'lib/Thread')
| -rw-r--r-- | lib/Thread/Task/Thread.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Thread/Task/Thread.pm b/lib/Thread/Task/Thread.pm index d3fa27a..e922549 100644 --- a/lib/Thread/Task/Thread.pm +++ b/lib/Thread/Task/Thread.pm @@ -62,6 +62,12 @@ class Thread::Task::Thread { threads->object( $self->tid ); } + # always refresh the 'thread' attribute + # we use it only as a delegation point + after thread() { + $self->_clear_thread; + } + method spawn() { $self->_clear_thread; $WID2TID{$self->wid} = @@ -108,7 +114,7 @@ class Thread::Task::Thread { next unless $self->can($method); try { - $self->$method(@$method); + $self->$method(@$message); } catch (Finished_ET $e) { last; |