-#!/usr/bin/perl
+#!/usr/bin/env perl
#
# create a version and build id for the project using git ids
#
use vars qw($root);
my $fn = "$root/perl/Version.pm";
-my $desc = `git-describe --long`;
-my ($v, $s, $b) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-/;
-$s ||= '0'; # account for missing subversion
+my $desc = `git describe --long`;
+my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
$b++; # to account for the commit that is about to happen
open F, ">$fn" or die "issue.pl: can't open $fn $!\n";
package main;
-use vars qw(\$version \$subversion \$build);
+use vars qw(\$version \$build \$gitversion);
\$version = '$v';
-\$subversion = '$s';
\$build = '$b';
+\$gitversion = '$g\[i]';
1;
);
+
+exit(0);