Przeglądaj źródła

* Do not show full path in backup-message
* Skip path-creation when output is set to stdout

git-svn-id: trunk@17186 -

joost 14 lat temu
rodzic
commit
739ea3720c
1 zmienionych plików z 2 dodań i 2 usunięć
  1. 2 2
      utils/fpcmkcfg/fpcmkcfg.pp

+ 2 - 2
utils/fpcmkcfg/fpcmkcfg.pp

@@ -493,9 +493,9 @@ begin
       Halt(1);
       Halt(1);
       end
       end
     else
     else
-      Writeln(Format(SBackupCreated,[OutputFileName,BFN]));
+      Writeln(Format(SBackupCreated,[ExtractFileName(OutputFileName),ExtractFileName(BFN)]));
     end;
     end;
-  if not DirectoryExists(ExtractFilePath(OutputFileName)) then
+  if (OutputFileName<>'') and not DirectoryExists(ExtractFilePath(OutputFileName)) then
     begin
     begin
     if CreateDir then
     if CreateDir then
       begin
       begin