From: Pascal Packaging Team <pkg-pascal-devel@lists.alioth.debian.org>
Date: Fri, 2 Mar 2018 08:13:21 +0000 (+0000)
Subject: ppdep-fix-else-handling
X-Git-Tag: archive/raspbian/3.0.4+dfsg-17+rpi1^2^2~13
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=957d3387b4e1be01a778e03d5733896a72afad6b;p=fpc.git

ppdep-fix-else-handling


Gbp-Pq: Name ppdep-fix-else-handling.patch
---

diff --git a/fpcsrc/utils/ppdep.pp b/fpcsrc/utils/ppdep.pp
index 1a3204ba..79bd8da8 100644
--- a/fpcsrc/utils/ppdep.pp
+++ b/fpcsrc/utils/ppdep.pp
@@ -344,7 +344,7 @@ begin
                         hs^:='';
                       end
                     else
-                     if (Copy(hs^,2,6)='$ELSE') then
+                     if (Copy(hs^,2,5)='$ELSE') then
                       begin
                         skip[level]:=skip[level-1] or (not skip[level]);
                         hs^:='';