ports/169654: [PATCH] textproc/openjade: fix build with perl 5.16

[Steve Wills]

>Number:         169654
>Category:       ports
>Synopsis:       [PATCH] textproc/openjade: fix build with perl 5.16
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          change-request
>Submitter-Id:   current-users
>Arrival-Date:   Thu Jul 05 03:00:25 UTC 2012
>Closed-Date:
>Last-Modified:
>Originator:     Steve Wills
>Release:        FreeBSD 10.0-CURRENT amd64
>Organization:
>Environment:
System: FreeBSD meatwad.mouf.net 10.0-CURRENT FreeBSD 10.0-CURRENT #4 r238120: Wed Jul  4 12:36:35
>Description:
Patch obtained from:

http://sourceforge.net/mailarchive/forum.php?thread_name=CAF1ZMEf6eEiv%3D%3DsOcZgftY3iSd79MkWgTU0vcK9w6BJCNSp5DA%40mail.gmail.com&forum_name=openjade-devel

Added file(s):
- files/patch-msggen

Port maintainer (kuriyama at FreeBSD.org) is cc'd.

Generated with FreeBSD Port Tools 0.99_6 (mode: change, diff: CVS)
>How-To-Repeat:
>Fix:

--- openjade-1.3.3p1_2.patch begins here ---
Index: files/patch-msggen
===================================================================
RCS file: files/patch-msggen
diff -N files/patch-msggen
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ files/patch-msggen	5 Jul 2012 02:54:43 -0000
@@ -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");
--- openjade-1.3.3p1_2.patch ends here ---

>Release-Note:
>Audit-Trail:
>Unformatted: