openjade/openjade-1.3.2-perl-getopts.patch

23 lines
496 B
Diff
Raw Permalink Normal View History

--- openjade-1.3.3-pre1/msggen.pl.orig 2015-01-01 18:14:45.187510209 +0000
+++ openjade-1.3.3-pre1/msggen.pl 2015-01-01 18:15:15.480842474 +0000
@@ -4,6 +4,7 @@
# See the file COPYING for copying permission.
use POSIX;
+use Getopt::Std;
# Package and version.
$package = 'openjade';
@@ -18,8 +19,9 @@
undef $opt_l;
undef $opt_p;
undef $opt_t;
-do 'getopts.pl';
-&Getopts('l:p:t:');
+#do 'getopts.pl';
+#&Getopts('l:p:t:');
+getopts('l:p:t:');
$module = $opt_l;
$pot_file = $opt_p;