mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
fix issue.pl to use "new style" git commands
This commit is contained in:
parent
2926213cad
commit
5d77cab91d
1
Changes
1
Changes
@ -1,5 +1,6 @@
|
||||
15May09=======================================================================
|
||||
1. Add CTY-1904 prefixes
|
||||
2. Accommodate "official" git command syntax in issue.pl
|
||||
29Dec08=======================================================================
|
||||
1. Add show/motd command as requested by Ian G0VGS.
|
||||
2. add CTY-1817 prefixes
|
||||
|
@ -9,8 +9,8 @@ package main;
|
||||
|
||||
use vars qw($version $subversion $build);
|
||||
|
||||
$version = '';
|
||||
$version = '1.55';
|
||||
$subversion = '0';
|
||||
$build = '1';
|
||||
$build = '40';
|
||||
|
||||
1;
|
||||
|
@ -18,7 +18,7 @@ use strict;
|
||||
|
||||
use vars qw($root);
|
||||
my $fn = "$root/perl/Version.pm";
|
||||
my $desc = `git-describe --long`;
|
||||
my $desc = `git describe --long`;
|
||||
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
|
||||
|
Loading…
Reference in New Issue
Block a user