2009-11-10 15:03 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

* harbour/tests/cpinfo.prg
    ! fixed possible infinite loop in character padding procedure

harbour/ChangeLog

@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-11-10 15:03 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/tests/cpinfo.prg
+    ! fixed possible infinite loop in character padding procedure
+
 2009-11-10 13:34 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/tests/cpinfo.prg
     + added additional information that binary tables generated by cpinfo.prg

harbour/tests/cpinfo.prg

@@ -204,7 +204,7 @@ static function pad_letters( cUp, cLo )
       if upper( cL ) == cU .and. lower( cU ) == cL
          ++i
          ++j
-      elseif cL == "" .or. !islower( lower( cU ) )
+      elseif cL == "" .or. ( ! cU == "" .and. !islower( lower( cU ) ) )
          cL := " "
          ++i
       elseif cU == "" .or. !isupper( upper( cL ) )