… | … | ||
---|---|---|---|
23 | cf::register_extcmd cfplus_support => sub { | 23 | cf::register_extcmd cfplus_support => sub { |
24 | my ($pl, $msg) = @_; | 24 | my ($pl, $msg) = @_; |
25 | 25 | ||
26 | # $msg->{version} | 26 | # $msg->{version} |
27 | 27 | ||
28 | ( | ||
28 | (version => 2) | 29 | version => 2, |
30 | ) | ||
29 | }; | 31 | }; |
30 | 32 | ||
31 | my %dialog; # currently active dialogs | 33 | my %dialog; # currently active dialogs |
32 | 34 | ||
33 | my $timer = Event->timer (interval => 0.2, parked => 1, data => cf::WF_AUTOCANCEL, cb => sub { | 35 | my $timer = Event->timer (interval => 0.2, parked => 1, data => cf::WF_AUTOCANCEL, cb => sub { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |