From c719f7d042e1cc5af74d4c19fc2563de6df7269a Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 14 Oct 2014 21:00:22 +0100 Subject: [PATCH] remove --long from git describe call --- perl/Version.pm | 4 ++-- perl/cluster.pl | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/perl/Version.pm b/perl/Version.pm index e43ab22c..83b8c106 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion); $version = '1.55'; $subversion = '0'; -$build = '161'; -$gitversion = '7a39506[i]'; +$build = '162'; +$gitversion = 'c664bf7[i]'; 1; diff --git a/perl/cluster.pl b/perl/cluster.pl index 81e23cf8..3b931a0f 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -387,7 +387,7 @@ if (DXSql::init($dsn)) { # determine the real version number my $repo = Git->repository(Directory => "$root/.git"); if ($repo) { - my $desc = $repo->command_oneline(['describe', '--long'], STDERR => 0); + my $desc = $repo->command_oneline(['describe'], STDERR => 0); if ($desc) { my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/; $version = $v; -- 2.43.0