strip first char of version string for !GDL.RELEASE if it is "v" (#1780)

gnudatalanguage · Mar 20, 2024 · 93ca3ea · 93ca3ea
1 parent 86806a3
commit 93ca3ea
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/initsysvar.cpp b/src/initsysvar.cpp
@@ -656,7 +656,7 @@ namespace SysVar
 
     // !GDL (to allow distinguish IDL/GDL with DEFSYSV, '!gdl', exists=exists )
     DStructGDL*  gdlStruct = new DStructGDL( "!GNUDATALANGUAGE");
-    gdlStruct->NewTag("RELEASE", new DStringGDL( VERSION));
+    gdlStruct->NewTag("RELEASE", new DStringGDL( VERSION + (VERSION[0] == 'v' ? 1 : 0)));
 
     // creating an explicit build date in !GDL (also exist in !version)
     gdlStruct->NewTag("BUILD_DATE", new DStringGDL(BUILD_DATE));