my ($v, $s, $b) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-/;
$s ||= '0'; # account for missing subversion
$b++; # to account for the commit that is about to happen
my ($v, $s, $b) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-/;
$s ||= '0'; # account for missing subversion
$b++; # to account for the commit that is about to happen