commit fcc5b94f118495b1a467edcda6c6f631691c3f69 Author: Dennis Lan Date: Tue Jul 3 09:25:42 2012 +0800 openjade: fix undefined Getopts error, use std namespace Using Gentoo Linux as the build host, it fails without this patch Use Getopt::Std in place of getopts.pl. Upstream-Status: Inappropriate [no upstream] Original-Author-By: Mike Gilbert Signed-off-by: Dennis Lan diff --git a/msggen.pl b/msggen.pl index 0c33968..2ee3f66 100644 --- a/msggen.pl +++ b/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 @@ $gen_c = 0; 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 @@ while () { 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");