again fix PythonVersionFromDLLName

Author: Alexey-T

python4lazarus/PythonEngine.pas

@@ -8837,24 +8837,26 @@ function IsPythonVersionRegistered(PythonVersion : AnsiString;
 
 procedure PythonVersionFromDLLName(LibName: string; out MajorVersion, MinorVersion: integer);
 //Windows: 'c:\some\path\python310.dll'
-//Linux: '/some/path/libpython3.10.so'
+//Linux: '/some/path/libpython3.10m.so'
 const
   cPython = 'python';
+  DefaultMajor = 3;
+  DefaultMinor = 4;
 var
   NPos: integer;
   ch: char;
 begin
-  MajorVersion:= 0;
-  MinorVersion:= 0;
+  MajorVersion:= DefaultMajor;
+  MinorVersion:= DefaultMinor;
   LibName:= LowerCase(ExtractFileName(LibName)); //strip path
   NPos:= Pos(cPython, LibName);
   if NPos=0 then exit;
   Inc(NPos, Length(cPython));
   if NPos>Length(LibName) then exit;
   ch:= LibName[NPos];
   case ch of
-    '2'..'5': //support major versions 2...5, default 3
-      MajorVersion:= StrToIntDef(ch, 3);
+    '2'..'5': //support major versions 2...5
+      MajorVersion:= StrToIntDef(ch, DefaultMajor);
     else
       exit;
   end;
@@ -8880,7 +8882,7 @@ procedure PythonVersionFromDLLName(LibName: string; out MajorVersion, MinorVersi
     end;
   end;
   //the rest is minor version number '0'...'999'
-  MinorVersion:= StrToIntDef(LibName, 0);
+  MinorVersion:= StrToIntDef(LibName, DefaultMinor);
 end;
 
 end.