tjh.dev
1http://sources.gentoo.org/cgi-bin/viewvc.cgi/gentoo-x86/app-text/openjade/files/openjade-1.3.2-msggen.pl.patch?revision=1.2
2
3Use Getopt::Std in place of getopts.pl.
4https://bugs.gentoo.org/show_bug.cgi?id=420083
5
6--- a/msggen.pl
7+++ b/msggen.pl
8@@ -4,6 +4,7 @@
9 # See the file COPYING for copying permission.
10
11 use POSIX;
12+use Getopt::Std;
13
14 # Package and version.
15 $package = 'openjade';
16@@ -18,8 +19,7 @@
17 undef $opt_l;
18 undef $opt_p;
19 undef $opt_t;
20-do 'getopts.pl';
21-&Getopts('l:p:t:');
22+getopts('l:p:t:');
23 $module = $opt_l;
24 $pot_file = $opt_p;
25
26@@ -72,7 +72,7 @@
27 else {
28 $field[0] =~ /^[IWQXE][0-9]$/ || &error("invalid first field");;
29 $type[$num] = substr($field[0], 0, 1);
30- $argc = int(substr($field[0], 1, 1));
31+ $argc = substr($field[0], 1, 1);
32 }
33 $nargs[$num] = $argc;
34 $field[1] =~ /^[a-zA-Z_][a-zA-Z0-9_]+$/ || &error("invalid tag");