fix issue.pl to use "new style" git commands

diff --git a/Changes b/Changes
index ed47a75f330db40eabe77cd149cc5834c8bd2f63..38a63075c766de06092b2fb85e44b0f85a935c4a 100644 (file)
--- 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 55e382339a46633933886a1c63024fbbc6a69f28..76bdefb80d368b9ad02af577741f69a609d9b611 100644 (file)
--- 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 10887c8ca966ad702b8c8448108df30d38690921..f7345c8ef50cac93321d067acdd9ac34a05961b0 100755 (executable)
--- 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