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

fpsvnsync: don't set empty properties

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@444 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2008-04-28 09:57:41 +00:00
parent df1408e52b
commit dda68f13a0
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
applications/fpsvnsync/fpsvnsync.lpr
View File

@ -226,6 +226,10 @@ var
// because of the mime style is non-text. // because of the mime style is non-text.
for pass := 1 to 2 do begin for pass := 1 to 2 do begin
for j:=0 to SourceProp.Properties.Count-1 do begin for j:=0 to SourceProp.Properties.Count-1 do begin
// if there is no value, don't set the property
if (SourceProp.Properties.ValueFromIndex[j]='')
then continue;
IsSvnEolProp := SourceProp.Properties.Names[j]='svn:eol-style'; IsSvnEolProp := SourceProp.Properties.Names[j]='svn:eol-style';
if ((pass=1) and (IsSvnEolProp=true)) or if ((pass=1) and (IsSvnEolProp=true)) or
((pass=2) and (IsSvnEolProp=false)) then begin ((pass=2) and (IsSvnEolProp=false)) then begin