my $desc = $repo->command_oneline(['describe', '--long'], STDERR => 0);
if ($desc) {
my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
+ $s ||= '';
+ dbg("Git: $desc");
+ dbg("Git: V=$v S=$s B=$b g=$g");
$version = $v;
$build = $b || 0;
$gitversion = "$g\[r]";
sub idle_loop
{
BPQMsg::process();
- DXCommandmode::process(); # process ongoing command mode stuff
- DXProt::process(); # process ongoing ak1a pcxx stuff
+# DXCommandmode::process(); # process ongoing command mode stuff
+# DXProt::process(); # process ongoing ak1a pcxx stuff
if (defined &Local::process) {
eval {
$systime_daystart = $days * 86400;
}
IsoTime::update($systime);
+ DXCommandmode::process(); # process ongoing command mode stuff
+ DXProt::process(); # process ongoing ak1a pcxx stuff
DXCron::process(); # do cron jobs
DXXml::process();
DXConnect::process();