Gobble rest of line with a scalar, not a hash.
[kopensolaris-gnu/glibc.git] / iconvdata / gap.pl
1 $first=$last=$idx=0;
2 while (<>) {
3   local($ucs,$rest) = split;
4   local($u)=hex($ucs);
5   if ($u - $last > 6) {
6     if ($last != 0) {
7       printf ("  { start: %#06x, end: %#06x, idx: %5d },\n",
8               $first, $last, $idx - $first);
9       $idx += $last - $first + 1;
10     }
11     $first=$u;
12   }
13   $last=$u;
14 }
15 printf ("  { start: %#06x, end: %#06x, idx: %5d },\n",
16         $first, $last, $idx - $first);