… | … | ||
---|---|---|---|
42 | 42 | ||
43 | my $timer; $timer = | 43 | my $timer; $timer = |
44 | urxvt::timer | 44 | urxvt::timer |
45 | ->new | 45 | ->new |
46 | ->after (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) = @_; |
52 | 52 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |