Date: Wed, 4 Jul 2012 22:56:31 -0400 (EDT) From: Steve Wills <swills@FreeBSD.org> To: FreeBSD-gnats-submit@FreeBSD.org Cc: kuriyama@FreeBSD.org Subject: ports/169654: [PATCH] textproc/openjade: fix build with perl 5.16 Message-ID: <201207050256.q652uVH2051183@meatwad.mouf.net> Resent-Message-ID: <201207050300.q6530PMn063080@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
>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@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:
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201207050256.q652uVH2051183>