Fix-exit-code-on-fpdoc

Gbp-Pq: Name Fix-exit-code-on-fpdoc.patch

diff --git a/fpcsrc/utils/fpdoc/fpdoc.pp b/fpcsrc/utils/fpdoc/fpdoc.pp
index 011244727a04f38a389550584393686ee381ef3b..3e07257c98c06b75293c7c056ff82002fc6f8d79 100644 (file)
--- a/fpcsrc/utils/fpdoc/fpdoc.pp
+++ b/fpcsrc/utils/fpdoc/fpdoc.pp
@@ -392,6 +392,7 @@ end;
 Procedure TFPDocApplication.DoRun;
 
 begin
+  ExceptionExitCode := 1;
   try
   {$IFDEF Unix}
     gettext.TranslateResourceStrings('/usr/share/locale/%s/LC_MESSAGES/fpdoc-' + {$include %FPCVERSION%} + '.mo');