From c719f7d042e1cc5af74d4c19fc2563de6df7269a Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1