--- Font-TTF-1.04/lib/Font/TTF/OldCmap.pm~	2014-01-10 02:09:34.000000000 +0000
+++ Font-TTF-1.04/lib/Font/TTF/OldCmap.pm	2014-03-07 08:27:31.007184699 +0000
@@ -269,7 +269,7 @@
             for ($j = 0; $j < $num; $j++)
             {
                 $delta = $segs->[$j]{'VAL'}[0]; $flat = 1;
-                for ($k = $k < $segs->[$j]{'LEN'}; $k++)
+                for ($k = 1; $k < $segs->[$j]{'LEN'}; $k++)
                 {
                     if ($segs->[$j]{'VAL'}[$k] == 0)
                     { $flat = 0; }