[pkgsrc/trunk]: pkgsrc/textproc/openjade Add patch from Gentoo Linux to fix b...

[tron <tron%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/94f98f09371c
branches:  trunk
changeset: 609513:94f98f09371c
user:      tron <tron%pkgsrc.org@localhost>
date:      Thu Oct 04 20:59:24 2012 +0000

description:
Add patch from Gentoo Linux to fix build with Perl 5.16.

diffstat:

 textproc/openjade/distinfo                |   3 +-
 textproc/openjade/patches/patch-msggen.pl |  35 +++++++++++++++++++++++++++++++
 2 files changed, 37 insertions(+), 1 deletions(-)

diffs (54 lines):

diff -r 9da6009cc42f -r 94f98f09371c textproc/openjade/distinfo
--- a/textproc/openjade/distinfo        Thu Oct 04 20:31:26 2012 +0000
+++ b/textproc/openjade/distinfo        Thu Oct 04 20:59:24 2012 +0000
@@ -1,4 +1,4 @@
-$NetBSD: distinfo,v 1.12 2012/08/06 16:51:50 jperkin Exp $
+$NetBSD: distinfo,v 1.13 2012/10/04 20:59:24 tron Exp $
 
 SHA1 (openjade-1.3.2.tar.gz) = 54e1999f41450fbd62c5d466002d79d3efca2321
 RMD160 (openjade-1.3.2.tar.gz) = 3b12f6596a42c49a60cc07cd9b8f4c5fdf3bafd2
@@ -11,4 +11,5 @@
 SHA1 (patch-af) = 1e0db04b5b85ad3b71066e55f94bf3144d69efe5
 SHA1 (patch-jade_TeXFOTBuilder.cxx) = 037953d73d896afae7531e313821224ccd1e30e4
 SHA1 (patch-jade_TransformFOTBuilder.cxx) = cf4c51f05f95e31111a7e48d7984397ba4850e7d
+SHA1 (patch-msggen.pl) = d55befeb6f859c9c3330c2083fce5d5281a496ef
 SHA1 (patch-style_primitive.cxx) = a7f3328c436c9a73805cdd1abb4321f156b94c6e
diff -r 9da6009cc42f -r 94f98f09371c textproc/openjade/patches/patch-msggen.pl
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/textproc/openjade/patches/patch-msggen.pl Thu Oct 04 20:59:24 2012 +0000
@@ -0,0 +1,35 @@
+$NetBSD: patch-msggen.pl,v 1.1 2012/10/04 20:59:24 tron Exp $
+
+Fix build problem with Perl 5.16. Patch taken from Gentoo Linux:
+
+https://bugs.gentoo.org/show_bug.cgi?id=420083
+
+--- msggen.pl.orig     2002-10-20 22:47:23.000000000 +0100
++++ msggen.pl  2012-10-04 21:50:57.000000000 +0100
+@@ -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");