--- msggen.pl.orig 2003-02-19 10:57:37.000000000 -0800 +++ msggen.pl 2003-02-19 10:58:06.000000000 -0800 @@ -61,7 +61,7 @@ else { $field[0] =~ /^[IWQXE][0-9]$/ || &error("invalid first field");; $type[$num] = substr($field[0], 0, 1); - $argc = int(substr($field[0], 1, 1)); + $argc = substr($field[0], 1, 1); } $nargs[$num] = $argc; $field[1] =~ /^[a-zA-Z_][a-zA-Z0-9_]+$/ || &error("invalid tag");