summaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/openjade/openjade-1.3.2/msggen.pl.patch
diff options
context:
space:
mode:
Diffstat (limited to 'meta/recipes-devtools/openjade/openjade-1.3.2/msggen.pl.patch')
-rw-r--r--meta/recipes-devtools/openjade/openjade-1.3.2/msggen.pl.patch44
1 files changed, 44 insertions, 0 deletions
diff --git a/meta/recipes-devtools/openjade/openjade-1.3.2/msggen.pl.patch b/meta/recipes-devtools/openjade/openjade-1.3.2/msggen.pl.patch
new file mode 100644
index 0000000..b47fd46
--- /dev/null
+++ b/meta/recipes-devtools/openjade/openjade-1.3.2/msggen.pl.patch
@@ -0,0 +1,44 @@
1commit fcc5b94f118495b1a467edcda6c6f631691c3f69
2Author: Dennis Lan <dennis.yxun@gmail.com>
3Date: Tue Jul 3 09:25:42 2012 +0800
4
5 openjade: fix undefined Getopts error, use std namespace
6
7 Using Gentoo Linux as the build host, it fails without this patch
8 Use Getopt::Std in place of getopts.pl.
9
10 Upstream-Status: Inappropriate [no upstream]
11 Original-Author-By: Mike Gilbert <floppym@gentoo.org>
12 Signed-off-by: Dennis Lan <dennis.yxun@gmail.com>
13
14diff --git a/msggen.pl b/msggen.pl
15index 0c33968..2ee3f66 100644
16--- a/msggen.pl
17+++ b/msggen.pl
18@@ -4,6 +4,7 @@
19 # See the file COPYING for copying permission.
20
21 use POSIX;
22+use Getopt::Std;
23
24 # Package and version.
25 $package = 'openjade';
26@@ -18,8 +19,7 @@ $gen_c = 0;
27 undef $opt_l;
28 undef $opt_p;
29 undef $opt_t;
30-do 'getopts.pl';
31-&Getopts('l:p:t:');
32+getopts('l:p:t:');
33 $module = $opt_l;
34 $pot_file = $opt_p;
35
36@@ -72,7 +72,7 @@ while (<DEF>) {
37 else {
38 $field[0] =~ /^[IWQXE][0-9]$/ || &error("invalid first field");;
39 $type[$num] = substr($field[0], 0, 1);
40- $argc = int(substr($field[0], 1, 1));
41+ $argc = substr($field[0], 1, 1);
42 }
43 $nargs[$num] = $argc;
44 $field[1] =~ /^[a-zA-Z_][a-zA-Z0-9_]+$/ || &error("invalid tag");