try to make Version.pm autoupdate

[spider.git] / perl / issue.pl

diff --git a/perl/issue.pl b/perl/issue.pl
index 10887c8ca966ad702b8c8448108df30d38690921..49bc62fdda6a93778d7e57a2da6a53f888674142 100755 (executable)
--- a/perl/issue.pl
+++ b/perl/issue.pl
@@ -18,9 +18,8 @@ use strict;
 
 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";
@@ -33,11 +32,13 @@ print F qq(#
 
 package main;
 
-use vars qw(\$version \$subversion \$build);
+use vars qw(\$version \$build \$gitversion);
 
 \$version = '$v';
-\$subversion = '$s';
 \$build = '$b';
+\$gitversion = '$g';
 
 1;
 );
+
+exit(0);