diff options
| author | Leonardo Arena <rnalrd@alpinelinux.org> | 2015-02-26 09:13:40 +0000 |
|---|---|---|
| committer | Leonardo Arena <rnalrd@alpinelinux.org> | 2015-02-26 09:13:40 +0000 |
| commit | 7a11e9d1cea3dd140effa30651ee9cd288fca710 (patch) | |
| tree | 8c4822b3c618ab71a87a84ddbf7a35ea6213affc /testing/openjade/openjade-1.3.2-msggen.pl.patch | |
| parent | 6b0d2ba29616074b9743a6e7e0f667112ae89944 (diff) | |
| download | aports-7a11e9d1cea3dd140effa30651ee9cd288fca710.tar.bz2 aports-7a11e9d1cea3dd140effa30651ee9cd288fca710.tar.xz | |
testing/openjade: new aport
An implementation of DSSSL, a style language to format SGML or XML documents.
Diffstat (limited to 'testing/openjade/openjade-1.3.2-msggen.pl.patch')
| -rw-r--r-- | testing/openjade/openjade-1.3.2-msggen.pl.patch | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/testing/openjade/openjade-1.3.2-msggen.pl.patch b/testing/openjade/openjade-1.3.2-msggen.pl.patch new file mode 100644 index 0000000000..2f87456424 --- /dev/null +++ b/testing/openjade/openjade-1.3.2-msggen.pl.patch @@ -0,0 +1,32 @@ +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 |