diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-03-28 20:05:28 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-03-28 20:05:28 +0000 |
| commit | a5535e611dde5fbdb9c681c0b66c849953e0b4bc (patch) | |
| tree | bbb01f55a42798b4b51c34c37cb3d842ca82a45a /utils/rmcvsdir.pp | |
| parent | 24f6f2e8902a5d53e6c97f2a2ca4888619dc2964 (diff) | |
| download | fpc-a5535e611dde5fbdb9c681c0b66c849953e0b4bc.tar.gz | |
+ always build rmcvsdir
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@7018 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'utils/rmcvsdir.pp')
| -rw-r--r-- | utils/rmcvsdir.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/rmcvsdir.pp b/utils/rmcvsdir.pp index b2e49f5265..41c9e44d5b 100644 --- a/utils/rmcvsdir.pp +++ b/utils/rmcvsdir.pp @@ -8,7 +8,7 @@ procedure deltree(const dirname : string); begin writeln('Deleting ',dirname); - if findfirst(dirname+'/*.*',faanyfile,rec)=0 then + if findfirst(dirname+'/*.*',faanyfile or fadirectory,rec)=0 then begin repeat if (rec.attr and fadirectory)<>0 then @@ -34,7 +34,7 @@ procedure searchcvsdir(const dirname : string); begin writeln('Searching ',dirname); - if findfirst(dirname+'/*.*',faanyfile,rec)=0 then + if findfirst(dirname+'/*.*',faanyfile or fadirectory,rec)=0 then begin repeat if (rec.attr and fadirectory)<>0 then |