Jelajahi Sumber

Fix interactive information log error

Pierre Muller 2 tahun lalu
induk
melakukan
246326999b
1 mengubah file dengan 1 tambahan dan 1 penghapusan
  1. 1 1
      packages/fpmkunit/src/fpmkunit.pp

+ 1 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -6557,7 +6557,7 @@ begin
       ConsoleOutput := TMemoryStream.Create;
       try
         if Interactive then
-          Log(vlInfo,'Starting "%s" "%s" interactively',[Cmd,Args]);
+          Log(vlInfo,'Starting "%s" "%s" interactively',[Cmd,CmdLine]);
         {$ifdef HAS_UNIT_PROCESS}
         E:=ExecuteFPC(Verbose, Interactive, cmd, args, env, ConsoleOutput);
         {$else}