X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fissue.pl;fp=perl%2Fissue.pl;h=923725e6817dda0e6244f402460a811fad1fdea9;hb=3c56356646c5e91997c3f3741730fbc6aa178d93;hp=802c12e60a1a3a97e126afa8ea1f17a3fdf51e9c;hpb=d38c9fb5ca503aa06452deccc246c145040e10a6;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