svn commit: r301352 - head/textproc/openjade/files

[Steve Wills]

Author: swills
Date: Sun Jul 22 20:59:56 2012
New Revision: 301352
URL: http://svn.freebsd.org/changeset/ports/301352

Log:
  - Fix build with perl 5.16
  
  PR:		ports/169654
  Approved by:	maintainer timeout (kuriyama, >2 weeks)
  Obtained from:	http://sourceforge.net/mailarchive/forum.php?thread_name=CAF1ZMEf6eEiv%3D%3DsOcZgftY3iSd79MkWgTU0vcK9w6BJCNSp5DA%40mail.gmail.com&forum_name=openjade-devel

Added:
  head/textproc/openjade/files/patch-msggen   (contents, props changed)

Added: head/textproc/openjade/files/patch-msggen
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/textproc/openjade/files/patch-msggen	Sun Jul 22 20:59:56 2012	(r301352)
@@ -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");
\ No newline at end of file