projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
try to prevent $myalias calls being set to nodes
[spider.git]
/
perl
/
issue.pl
diff --git
a/perl/issue.pl
b/perl/issue.pl
index 10887c8ca966ad702b8c8448108df30d38690921..802c12e60a1a3a97e126afa8ea1f17a3fdf51e9c 100755
(executable)
--- a/
perl/issue.pl
+++ b/
perl/issue.pl
@@
-18,8
+18,8
@@
use strict;
use vars qw($root);
my $fn = "$root/perl/Version.pm";
use vars qw($root);
my $fn = "$root/perl/Version.pm";
-my $desc = `git
-
describe --long`;
-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
$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;
package main;
-use vars qw(\$version \$subversion \$build);
+use vars qw(\$version \$subversion \$build
\$gitversion
);
\$version = '$v';
\$subversion = '$s';
\$build = '$b';
\$version = '$v';
\$subversion = '$s';
\$build = '$b';
+\$gitversion = '$g\[i]';
1;
);
1;
);