part backport from mojo

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 3c02e0386a0ab4a6f958dbe04b0f72bc0de127d2..69418a3b1aab5a08cb4af28ab07819e3edc62c63 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -409,7 +409,7 @@ if (DXSql::init($dsn)) {
        if (!$@ && $desc) {
                my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
                $version = $v;
-               my $subversion = $s || 0;
+               $subversion = $s || 0;
                $build = $b || 0;
                $gitversion = "$g\[r]";
        }