Only get short git hash from master [skip CI]

cbcrg · May 30, 2023 · a0ca16c · a0ca16c
1 parent 92fc2f9
commit a0ca16c
Showing 1 changed file with 5 additions and 8 deletions.
diff --git a/lib/perl/lib/perl4makefile/read_program_version.pl b/lib/perl/lib/perl4makefile/read_program_version.pl
@@ -60,22 +60,22 @@
 if (($cl=~/-beta/))
   {
     increase ($build_versionF, 1);
-    if ($ENV{'TC_MASTER_NODE'}){system ("git branch -v  >$githubF");}
+    if ($ENV{'TC_MASTER_NODE'}){system ("git rev-parse --short master  >$githubF");}
     circleci2releaseV($circleciF, "0");
   }
 elsif ( ($cl=~/-stable/))
   {
     value2file(0, $build_versionF);
     increase   ($minor_versionF, 1);
-    if ($ENV{'TC_MASTER_NODE'}){system ("git branch -v  >$githubF");}
+    if ($ENV{'TC_MASTER_NODE'}){system ("git rev-parse --short master  >$githubF");}
     circleci2releaseV($circleciF, "1");
   }
 elsif ( ($cl=~/-major/))
   {
     value2file(0, $build_versionF);
     value2file(0, $minor_versionF);
     increase   ($major_versionF, 1);
-    if ($ENV{'TC_MASTER_NODE'}){system ("git branch -v  >$githubF");}
+    if ($ENV{'TC_MASTER_NODE'}){system ("git rev-parse --short master  >$githubF");}
     circleci2releaseV($circleciF, "1");
   }
 
@@ -113,11 +113,8 @@ sub github_file2value
       while (<F>)
 	{
 	  my $l=$_;
-	  chomp $l;
-	  if ($l=~/\* master (\w+) .*/)
-	    {
-	      $value=$1;
-	    }
+	  chomp ($l);
+    $value=$l;
 	  close (F);
 	  return $value;
 	}