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

* also remove .git dirs.

Browse Source
This commit is contained in:
marcoonthegit 2022-05-06 18:44:31 +02:00
parent efe414f128
commit ca332f1002
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/rmcvsdir.pp
View File

@ -67,6 +67,8 @@ procedure searchcvsdir(const dirname : string);
deltree(dirname+'/CVS') deltree(dirname+'/CVS')
else if rec.name='.svn' then else if rec.name='.svn' then
deltree(dirname+'/.svn') deltree(dirname+'/.svn')
else if rec.name='.git' then
deltree(dirname+'/.git')
else else
if (rec.name<>'.') and (rec.name<>'..') then if (rec.name<>'.') and (rec.name<>'..') then
searchcvsdir(dirname+'/'+rec.name) searchcvsdir(dirname+'/'+rec.name)