--- /dev/null
+diff -ur openjade-1.3.2.orig/msggen.pl openjade-1.3.2.new/msggen.pl
+--- openjade-1.3.2.orig/msggen.pl 2002-10-20 17:47:23.000000000 -0400
++++ openjade-1.3.2.new/msggen.pl 2012-09-09 12:20:32.827758524 -0400
+@@ -4,6 +4,7 @@
+ # See the file COPYING for copying permission.
+
+ use POSIX;
++use Getopt::Std;
+
+ # Package and version.
+ $package = 'openjade';
+@@ -18,8 +19,8 @@
+ 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;
+