Svn2RevisionInc: Show at least some warning if svn command is not in path. Patch from Sandro Cumerlato.

git-svn-id: trunk@49236 -

tools/svn2revisioninc.pas

@@ -99,6 +99,25 @@ var
 const
   RevisionIncComment = '// Created by Svn2RevisionInc';
   
+function SvnInPath: Boolean;
+var
+  P: TProcessUTF8;
+begin
+  Result := True;
+  P := TProcessUTF8.Create(nil);
+  try
+    P.Options := [poUsePipes, poWaitOnExit];
+    P.CommandLine := 'svn --version';
+    try
+      P.Execute;
+    except
+      Result := False;
+    end;
+  finally
+    P.Destroy;
+  end;
+end;
+
 function GitInPath: Boolean;
 var
   P: TProcessUTF8;
@@ -549,6 +568,9 @@ begin
     exit;
   end;
 
+  if not SvnInPath then
+    debugln('Warning: svn not in path.');
+
   Result := True;
 end;