pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

svn classes: don't call svn proplist to get the properties of an empty file list

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@249 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-08-31 21:04:08 +00:00
parent c927a15a50
commit c1d156080c
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/svn/svnclasses.pas
View File

@ -683,11 +683,13 @@ var
begin begin
Output := TMemoryStream.Create; Output := TMemoryStream.Create;
try try
Files := ''; if FileNames.Count>0 then begin
for i := 0 to FileNames.Count-1 do Files := '';
Files := Files + ' ' + FileNames[i]; for i := 0 to FileNames.Count-1 do
ExecuteSvnCommand('proplist -v' + Files, Output); Files := Files + ' ' + FileNames[i];
Output.Position := 0; ExecuteSvnCommand('proplist -v' + Files, Output);
Output.Position := 0;
end;
LoadFromStream(Output); LoadFromStream(Output);
for i := 0 to FileNames.Count -1 do begin for i := 0 to FileNames.Count -1 do begin
if FFiles.FindIndexOf(FileNames[i])<0 then begin if FFiles.FindIndexOf(FileNames[i])<0 then begin