… | … | ||
---|---|---|---|
67 | --$sem->[0]; | 67 | --$sem->[0]; |
68 | return 1; | 68 | return 1; |
69 | } | 69 | } |
70 | 70 | ||
71 | push @{$sem->[1]}, $Coro::current; | 71 | push @{$sem->[1]}, $Coro::current; |
72 | Coro::schedule; | 72 | &Coro::schedule; |
73 | } | 73 | } |
74 | } | 74 | } |
75 | 75 | ||
76 | sub timed_down { | 76 | sub timed_down { |
77 | require Coro::Timer; | 77 | require Coro::Timer; |
… | … | ||
95 | } | 95 | } |
96 | die; | 96 | die; |
97 | } | 97 | } |
98 | 98 | ||
99 | push @{$sem->[1]}, $Coro::current; | 99 | push @{$sem->[1]}, $Coro::current; |
100 | Coro::schedule; | 100 | &Coro::schedule; |
101 | } | 101 | } |
102 | } | 102 | } |
103 | 103 | ||
104 | =item $sem->up ($id) | 104 | =item $sem->up ($id) |
105 | 105 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |