diff --git a/components/lazutils/lazlogger.pas b/components/lazutils/lazlogger.pas index 3b00504573..01bdd9a0bf 100644 --- a/components/lazutils/lazlogger.pas +++ b/components/lazutils/lazlogger.pas @@ -569,7 +569,11 @@ end; procedure TLazLoggerFile.SetParamForLogFileName(AValue: String); begin - if FParamForLogFileName = AValue then Exit; + if (AValue <> '') and (AValue[Length(AValue)] = '=') then + Delete(AValue, Length(AValue), 1); + if FParamForLogFileName = AValue then + Exit; + Finish; FGetLogFileNameDone := False; FParamForLogFileName := AValue; @@ -800,7 +804,7 @@ begin FParamForLogFileName := ''; FEnvironmentForLogFileName := ''; {$else} - FParamForLogFileName := '--debug-log='; + FParamForLogFileName := '--debug-log'; FEnvironmentForLogFileName := '*_debuglog'; {$endif} end; diff --git a/components/lazutils/lazloggerbase.pas b/components/lazutils/lazloggerbase.pas index d9e1473807..bd3e4e45a7 100644 --- a/components/lazutils/lazloggerbase.pas +++ b/components/lazutils/lazloggerbase.pas @@ -1166,7 +1166,11 @@ end; procedure TLazLoggerWithGroupParam.SetParamForEnabledLogGroups(AValue: String); begin - if FParamForEnabledLogGroups = AValue then Exit; + if (AValue <> '') and (AValue[Length(AValue)] = '=') then + Delete(AValue, Length(AValue), 1); + if FParamForEnabledLogGroups = AValue then + Exit; + FParamForEnabledLogGroups := AValue; ParseParamForEnabledLogGroups; end;