From c1d156080c84c26eb317a41cf48c156809717ce6 Mon Sep 17 00:00:00 2001 From: vsnijders Date: Fri, 31 Aug 2007 21:04:08 +0000 Subject: [PATCH] svn classes: don't call svn proplist to get the properties of an empty file list git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@249 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/svn/svnclasses.pas | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/components/svn/svnclasses.pas b/components/svn/svnclasses.pas index e2dc8a54c..c7ea69e66 100644 --- a/components/svn/svnclasses.pas +++ b/components/svn/svnclasses.pas @@ -683,11 +683,13 @@ var begin Output := TMemoryStream.Create; try - Files := ''; - for i := 0 to FileNames.Count-1 do - Files := Files + ' ' + FileNames[i]; - ExecuteSvnCommand('proplist -v' + Files, Output); - Output.Position := 0; + if FileNames.Count>0 then begin + Files := ''; + for i := 0 to FileNames.Count-1 do + Files := Files + ' ' + FileNames[i]; + ExecuteSvnCommand('proplist -v' + Files, Output); + Output.Position := 0; + end; LoadFromStream(Output); for i := 0 to FileNames.Count -1 do begin if FFiles.FindIndexOf(FileNames[i])<0 then begin