X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fissue.pl;h=ea0c083fcf8a43efc426be75049083c7b5acb7b2;hb=316a74dd2225b10f62d2b18ab2385d6906b9ae62;hp=065c9abdc1971546d8e198d009c9b7e84ba5e13f;hpb=16c932699e360cd44811afc68894e55a1a128962;p=spider.git

diff --git a/perl/issue.pl b/perl/issue.pl
index 065c9abd..ea0c083f 100755
--- a/perl/issue.pl
+++ b/perl/issue.pl
@@ -20,7 +20,6 @@ use vars qw($root);
 my $fn = "$root/perl/Version.pm";
 my $desc = `git describe --long`;
 my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
-$s ||= '0';		# account for missing subversion
 $b++;			# to account for the commit that is about to happen
 
 open F, ">$fn" or die "issue.pl: can't open $fn $!\n";
@@ -33,10 +32,9 @@ print F qq(#
 
 package main;
 
-use vars qw(\$version \$subversion \$build \$gitversion);
+use vars qw(\$version \$build \$gitversion);
 
 \$version = '$v';
-\$subversion = '$s';
 \$build = '$b';
 \$gitversion = '$g';