| … | … | ||
|---|---|---|---|
| 38 | 38 | ||
| 39 | use vars qw($idle $main $current); | 39 | use vars qw($idle $main $current); |
| 40 | 40 | ||
| 41 | use base Exporter; | 41 | use base Exporter; |
| 42 | 42 | ||
| 43 | $VERSION = "0.9"; | 43 | $VERSION = 0.95; |
| 44 | 44 | ||
| 45 | @EXPORT = qw(async cede schedule terminate current); | 45 | @EXPORT = qw(async cede schedule terminate current); |
| 46 | %EXPORT_TAGS = ( | 46 | %EXPORT_TAGS = ( |
| 47 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], | 47 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], |
| 48 | ); | 48 | ); |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |