Control: tag -1 patch Attached patch to go in d/patches.
Patch to fix Debian#987032: cqrlog: Importing ADIF-logs results in 0 byte logs - https://bugs.debian.org/987032 Applies upstream commits: 42d1ad402affd0af0f3087562c101fc34940ffc5 Original_Author: Petr Hlozek <p...@ok2cqr.com> Date: Sun Feb 7 07:19:57 2021 +0100 fix: workaround for 'TRegExpr exec: empty input string' error in fpc compiler Author: donf...@casagrau.org diff --git a/src/fAdifImport.pas b/src/fAdifImport.pas index 2481086..934b158 100644 --- a/src/fAdifImport.pas +++ b/src/fAdifImport.pas @@ -420,8 +420,12 @@ begin d.IOTA := UpperCase(d.IOTA); d.NAME := Copy(d.NAME, 1 ,40); d.QTH := Copy(d.QTH, 1, 60); - d.DARC_DOK := ReplaceRegExpr('Ø', d.DARC_DOK, '0', True); - d.DARC_DOK := LeftStr(Uppercase(ReplaceRegExpr('[^a-zA-Z0-9]',d.DARC_DOK, '', True)), 12); + //workaround for 'TRegExpr exec: empty input string' error in fpc compiler + if (trim(d.DARC_DOK) <> '') then + begin + d.DARC_DOK := ReplaceRegExpr('Ø', d.DARC_DOK, '0', True); + d.DARC_DOK := LeftStr(Uppercase(ReplaceRegExpr('[^a-zA-Z0-9]',d.DARC_DOK, '', True)), 12); + end; d.QSL_VIA := UpperCase(d.QSL_VIA); if Pos('QSL VIA',d.QSL_VIA) > 0 then
signature.asc
Description: PGP signature
