From 1a83b630cdf4e46eabbb2959a69b0b6d7f9bd0e8 Mon Sep 17 00:00:00 2001
From: Pascal Packaging Team <pkg-pascal-devel@lists.alioth.debian.org>
Date: Sat, 14 Apr 2018 17:08:39 +0100
Subject: [PATCH] ppdep-fix-else-handling

Gbp-Pq: Name ppdep-fix-else-handling.patch
---
 fpcsrc/utils/ppdep.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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^:='';
-- 
2.30.2