… | … | ||
---|---|---|---|
585 | snd @_, up_nodes; | 585 | snd @_, up_nodes; |
586 | }, | 586 | }, |
587 | 587 | ||
588 | # random utilities | 588 | # random utilities |
589 | eval => sub { | 589 | eval => sub { |
590 | my @res = eval shift; | 590 | my @res = do { package main; eval shift }; |
591 | snd @_, "$@", @res if @_; | 591 | snd @_, "$@", @res if @_; |
592 | }, | 592 | }, |
593 | time => sub { | 593 | time => sub { |
594 | snd @_, AE::time; | 594 | snd @_, AE::time; |
595 | }, | 595 | }, |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |