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 1a3204ba69314f2c1a16790157cff5c1b23a49b1..79bd8da870e1915bfb31850e62c7c2ecd259f7ec 100644 (file)
--- 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^:='';