… | … | ||
---|---|---|---|
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.97; | 43 | $VERSION = '1.0'; |
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 |