| … | |
… | |
| 25 | $DETECTORS{$name} = [$max_detect, $detect, $serve, $name]; |
25 | $DETECTORS{$name} = [$max_detect, $detect, $serve, $name]; |
| 26 | _update_detectors; |
26 | _update_detectors; |
| 27 | |
27 | |
| 28 | Guard::guard { |
28 | Guard::guard { |
| 29 | delete $DETECTORS{$name}; |
29 | delete $DETECTORS{$name}; |
| 30 | _update_detectors; |
30 | _update_detectors if defined &_update_detectors; |
| 31 | } |
31 | } |
| 32 | } |
32 | } |
| 33 | |
33 | |
| 34 | our $deliantra_detector = ext::tcp::register deliantra => 10, sub { |
34 | our $deliantra_detector = ext::tcp::register deliantra => 10, sub { |
| 35 | /^..version /s |
35 | /^..version /s |
