Now (apparent) apparently working

[spider.git] / perl / issue.pl

diff --git a/perl/issue.pl b/perl/issue.pl
index 065c9abdc1971546d8e198d009c9b7e84ba5e13f..923725e6817dda0e6244f402460a811fad1fdea9 100755 (executable)
--- a/perl/issue.pl
+++ b/perl/issue.pl
@@ -19,7 +19,7 @@ use strict;
 use vars qw($root);
 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 ($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
 
@@ -38,7 +38,7 @@ use vars qw(\$version \$subversion \$build \$gitversion);
 \$version = '$v';
 \$subversion = '$s';
 \$build = '$b';
-\$gitversion = '$g';
+\$gitversion = '$g\[i]';
 
 1;
 );