diff options
Diffstat (limited to 'community/openjade/openjade-1.3.2-msggen.pl.patch')
| -rw-r--r-- | community/openjade/openjade-1.3.2-msggen.pl.patch | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/community/openjade/openjade-1.3.2-msggen.pl.patch b/community/openjade/openjade-1.3.2-msggen.pl.patch deleted file mode 100644 index 2f87456424..0000000000 --- a/community/openjade/openjade-1.3.2-msggen.pl.patch +++ /dev/null @@ -1,32 +0,0 @@ -Use Getopt::Std in place of getopts.pl. -https://bugs.gentoo.org/show_bug.cgi?id=420083 - ---- a/msggen.pl -+++ b/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 |