osloup / rpms / openjade

Forked from rpms/openjade a year ago
Clone

Blame SOURCES/openjade-getoptperl.patch

4d9b7d
diff -urNp openjade-1.3.2-orig/msggen.pl openjade-1.3.2/msggen.pl
4d9b7d
--- openjade-1.3.2-orig/msggen.pl	2002-10-20 23:47:23.000000000 +0200
4d9b7d
+++ openjade-1.3.2/msggen.pl	2012-08-10 10:38:28.019081661 +0200
4d9b7d
@@ -4,6 +4,7 @@
4d9b7d
 # See the file COPYING for copying permission.
4d9b7d
 
4d9b7d
 use POSIX;
4d9b7d
+use Getopt::Std;
4d9b7d
 
4d9b7d
 # Package and version.
4d9b7d
 $package = 'openjade';
4d9b7d
@@ -18,8 +19,7 @@ $gen_c = 0;
4d9b7d
 undef $opt_l;
4d9b7d
 undef $opt_p;
4d9b7d
 undef $opt_t;
4d9b7d
-do 'getopts.pl';
4d9b7d
-&Getopts('l:p:t:');
4d9b7d
+getopts('l:p:t:');
4d9b7d
 $module = $opt_l;
4d9b7d
 $pot_file = $opt_p;
4d9b7d