openjade/patches/openjade-04-perl.patch

# getopts.pl is deprecated from perl.
# Offer this upstream.


--- openjade-1.3.2/msggen.pl_orig   2002-10-20 14:47:23.000000000 -0700
+++ openjade-1.3.2/msggen.pl    2016-04-01 14:48:13.950400177 -0700
@@ -18,8 +18,8 @@
 undef $opt_l;
 undef $opt_p;
 undef $opt_t;
-do 'getopts.pl';
-&Getopts('l:p:t:');
+use Getopt::Std;
+getopts('l:p:t:');
 $module = $opt_l;
 $pot_file = $opt_p;