build fix on a clean-install system with new perl, from gentoo

textproc/openjade/patches/patch-msggen_pl

@@ -0,0 +1,33 @@
+$OpenBSD: patch-msggen_pl,v 1.1 2013/03/26 00:16:39 sthen Exp $
+
+http://lists.linuxtogo.org/pipermail/openembedded-core/2012-July/024879.html
+
+--- msggen.pl.orig	Fri Apr 18 13:54:52 2003
++++ msggen.pl	Mon Mar 25 18:10:30 2013
+@@ -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 (<DEF>) {
+     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");