paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 14:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove touch debug command

Browse Source 
git-svn-id: trunk@30694 -
This commit is contained in:
michael 2015-04-21 16:53:24 +00:00
parent 4eff8c4f20
commit 70f4b81323
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/base/httpdefs.pp
View File

@ -591,7 +591,7 @@ Var
MimeItemsClass : TMimeItemsClass = TMimeItems;
MimeItemClass : TMimeItemClass = nil;
Procedure Touch(Const AName : String);
//Procedure Touch(Const AName : String);
implementation
@ -620,7 +620,7 @@ const
Procedure Touch(Const AName : String);
begin
FileClose(FileCreate('/tmp/touch-'+StringReplace(AName,'/','_',[rfReplaceAll])));
// FileClose(FileCreate('/tmp/touch-'+StringReplace(AName,'/','_',[rfReplaceAll])));
end;
Function GetFieldNameIndex(AName : String) : Integer;