… | … | ||
---|---|---|---|
41 | $ov->set (0, 0, $msg); | 41 | $ov->set (0, 0, $msg); |
42 | 42 | ||
43 | my $timer; $timer = | 43 | my $timer; $timer = |
44 | urxvt::timer | 44 | urxvt::timer |
45 | ->new | 45 | ->new |
46 | ->start (urxvt::NOW + 5) | 46 | ->after (5) |
47 | ->cb (sub {undef $timer; undef $ov; }); | 47 | ->cb (sub {undef $timer; undef $ov; }); |
48 | } | 48 | } |
49 | 49 | ||
50 | sub on_start { | 50 | sub on_start { |
51 | my ($self) = @_; | 51 | my ($self) = @_; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |