Bläddra i källkod

* handle also lines with spaces before the open brace

pierre 22 år sedan
förälder
incheckning
4d4ae8d4fe
1 ändrade filer med 1 tillägg och 0 borttagningar
  1. 1 0
      tests/utils/testu.pp

+ 1 - 0
tests/utils/testu.pp

@@ -156,6 +156,7 @@ begin
      readln(t,s);
      readln(t,s);
      if s<>'' then
      if s<>'' then
       begin
       begin
+        TrimB(s);
         if s[1]='{' then
         if s[1]='{' then
          begin
          begin
            delete(s,1,1);
            delete(s,1,1);