From: Pascal Packaging Team <pkg-pascal-devel@lists.alioth.debian.org>
Date: Mon, 25 Nov 2019 21:51:22 +0000 (+0000)
Subject: Fix-exit-code-on-fpdoc
X-Git-Tag: archive/raspbian/3.0.4+dfsg-23+rpi1^2~2
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=6848c02e81be8f62d0ad39d97774734f7c905c95;p=fpc.git

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 01124472..3e07257c 100644
--- 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');