diff options
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 |