1 # getopts.pl is deprecated from perl.

     2 # Offer this upstream.

     3 

     4 

     5 --- openjade-1.3.2/msggen.pl_orig	2002-10-20 14:47:23.000000000 -0700

     6 +++ openjade-1.3.2/msggen.pl	2016-04-01 14:48:13.950400177 -0700

     7 @@ -18,8 +18,8 @@

     8  undef $opt_l;

     9  undef $opt_p;

    10  undef $opt_t;

    11 -do 'getopts.pl';

    12 -&Getopts('l:p:t:');

    13 +use Getopt::Std;

    14 +getopts('l:p:t:');

    15  $module = $opt_l;

    16  $pot_file = $opt_p;

    17