From 097d717d4ba500eb6b0e9b39d8755106053cd71b Mon Sep 17 00:00:00 2001
From: ojab <ojab@ojab.ru>
Date: Sat, 30 Mar 2013 22:07:10 +0400
Subject: [PATCH] openjade: add patch to fix build with perl-5.16

---
 .../patches/openjade-1.3.2-msggen.pl.patch    | 32 +++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 srcpkgs/openjade/patches/openjade-1.3.2-msggen.pl.patch

diff --git a/srcpkgs/openjade/patches/openjade-1.3.2-msggen.pl.patch b/srcpkgs/openjade/patches/openjade-1.3.2-msggen.pl.patch
new file mode 100644
index 00000000000..2289b6e5af0
--- /dev/null
+++ b/srcpkgs/openjade/patches/openjade-1.3.2-msggen.pl.patch
@@ -0,0 +1,32 @@
+Use Getopt::Std in place of getopts.pl.
+https://bugs.gentoo.org/show_bug.cgi?id=420083
+
+--- msggen.pl
++++ 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");