From 5d77cab91d705fde9a580511732845327cbd0987 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 15 May 2009 23:15:25 +0100
Subject: [PATCH] fix issue.pl to use "new style" git commands

---
 Changes         | 1 +
 perl/Version.pm | 4 ++--
 perl/issue.pl   | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index ed47a75f..38a63075 100644
--- a/Changes
+++ b/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
diff --git a/perl/Version.pm b/perl/Version.pm
index 55e38233..76bdefb8 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -9,8 +9,8 @@ package main;
 
 use vars qw($version $subversion $build);
 
-$version = '';
+$version = '1.55';
 $subversion = '0';
-$build = '1';
+$build = '40';
 
 1;
diff --git a/perl/issue.pl b/perl/issue.pl
index 10887c8c..f7345c8e 100755
--- a/perl/issue.pl
+++ b/perl/issue.pl
@@ -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
-- 
2.43.0