Use Getopt::Std in place of getopts.pl. https://bugs.gentoo.org/show_bug.cgi?id=420083 --- msggen.pl +++ msggen.pl @@ -4,6 +4,7 @@ # See the file COPYING for copying permission. use POSIX; +use Getopt::Std; # Package and version. $package = 'openjade'; @@ -18,8 +19,7 @@ undef $opt_l; undef $opt_p; undef $opt_t; -do 'getopts.pl'; -&Getopts('l:p:t:'); +getopts('l:p:t:'); $module = $opt_l; $pot_file = $opt_p; @@ -72,7 +72,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");