projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
change node disconnection code to improve node clearouts
[spider.git]
/
perl
/
issue.pl
diff --git
a/perl/issue.pl
b/perl/issue.pl
index 6d2bfd34a9856fa1d8691659c464ded3ff919631..c6926148a4ecc61073165fe8ea9305eddfb57b75 100755
(executable)
--- a/
perl/issue.pl
+++ b/
perl/issue.pl
@@
-2,7
+2,7
@@
#
# create a version and build id for the project using git ids
#
#
# create a version and build id for the project using git ids
#
-#
$Id$
+#
#
# Copyright (c) 2007 Dirk Koopman, G1TLH
#
#
# Copyright (c) 2007 Dirk Koopman, G1TLH
#
@@
-19,7
+19,8
@@
use strict;
use vars qw($root);
my $fn = "$root/perl/Version.pm";
my $desc = `git-describe`;
use vars qw($root);
my $fn = "$root/perl/Version.pm";
my $desc = `git-describe`;
-my ($v, $b) = $desc =~ /^([\d.]+)-(\d+)-/;
+my ($v, $s, $b) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-/;
+$s ||= '0'; # account for missing subversion
$b++; # to account for the commit that is about to happen
open F, ">$fn" or die "issue.pl: can't open $fn $!\n";
$b++; # to account for the commit that is about to happen
open F, ">$fn" or die "issue.pl: can't open $fn $!\n";
@@
-32,9
+33,10
@@
print F qq(#
package main;
package main;
-use vars qw(\$version \$build);
+use vars qw(\$version \$
subversion \$
build);
\$version = '$v';
\$version = '$v';
+\$subversion = '$s';
\$build = '$b';
1;
\$build = '$b';
1;