From 77103fe7f22266258b33d6b7d7cbd010f49bad9d Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 23 Nov 2019 13:34:45 +0000
Subject: [PATCH] * Report error with correct exit code
git-svn-id: trunk@43563 -
---
utils/fpdoc/fpdoc.pp | 1 +
1 file changed, 1 insertion(+)
diff --git a/utils/fpdoc/fpdoc.pp b/utils/fpdoc/fpdoc.pp
index 0ce9f25fb5..b288b1f598 100644
--- a/utils/fpdoc/fpdoc.pp
+++ b/utils/fpdoc/fpdoc.pp
@@ -392,6 +392,7 @@ end;
Procedure TFPDocApplication.DoRun;
begin
+ ExceptionExitCode:=1;
try
{$IFDEF Unix}
gettext.TranslateResourceStrings('/usr/local/share/locale/%s/LC_MESSAGES/fpdoc.mo');