X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fissue.pl;h=802c12e60a1a3a97e126afa8ea1f17a3fdf51e9c;hb=3292b0f8ef9af57608f5e2032bf3c0fca838eb7a;hp=c6926148a4ecc61073165fe8ea9305eddfb57b75;hpb=fd0a34c34ad4112ee21e0730f7307498ff437e18;p=spider.git

diff --git a/perl/issue.pl b/perl/issue.pl
index c6926148..802c12e6 100755
--- a/perl/issue.pl
+++ b/perl/issue.pl
@@ -18,8 +18,8 @@ use strict;
 
 use vars qw($root);
 my $fn = "$root/perl/Version.pm";
-my $desc = `git-describe`;
-my ($v, $s, $b) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-/;
+my $desc = `git describe --long`;
+my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
 $s ||= '0';		# account for missing subversion
 $b++;			# to account for the commit that is about to happen
 
@@ -33,11 +33,12 @@ print F qq(#
 
 package main;
 
-use vars qw(\$version \$subversion \$build);
+use vars qw(\$version \$subversion \$build \$gitversion);
 
 \$version = '$v';
 \$subversion = '$s';
 \$build = '$b';
+\$gitversion = '$g\[i]';
 
 1;
 );