| 1234567891011121314151617181920212223242526272829303132 |
- Use Getopt::Std in place of getopts.pl.
- https://bugs.gentoo.org/show_bug.cgi?id=420083
- --- 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 @@
- 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");
|
