remove --long from git describe call

diff --git a/perl/Version.pm b/perl/Version.pm
index e43ab22c20b157e7ffff3a16f054aed42567b320..83b8c106cf928968d78e4d8700c6b368f69e4d23 100644 (file)
--- 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 81e23cf874ce35c04561f725f5f8768a382495e4..3b931a0fba1b8407ee37592d65cd16013e462b27 100755 (executable)
--- 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;