my $fn = "$root/perl/Version.pm";
my $desc = `git describe --long`;
my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
my $fn = "$root/perl/Version.pm";
my $desc = `git describe --long`;
my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;