X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fissue.pl;h=923725e6817dda0e6244f402460a811fad1fdea9;hb=refs%2Fheads%2Fbackportdxprot;hp=802c12e60a1a3a97e126afa8ea1f17a3fdf51e9c;hpb=c664bf735ebbf814c651b6d9d94fbd5abb8cd15c;p=spider.git

diff --git a/perl/issue.pl b/perl/issue.pl
index 802c12e6..923725e6 100755
--- 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