openjade/msggen.pl.patch



    1 Use Getopt::Std in place of getopts.pl.
    2 https://bugs.gentoo.org/show_bug.cgi?id=420083
    3 
    4 --- a/msggen.pl
    5 +++ b/msggen.pl
    6 @@ -4,6 +4,7 @@
    7  # See the file COPYING for copying permission.
    8  
    9  use POSIX;
   10 +use Getopt::Std;
   11  
   12  # Package and version.
   13  $package = 'openjade';
   14 @@ -18,8 +19,7 @@
   15  undef $opt_l;
   16  undef $opt_p;
   17  undef $opt_t;
   18 -do 'getopts.pl';
   19 -&Getopts('l:p:t:');
   20 +getopts('l:p:t:');
   21  $module = $opt_l;
   22  $pot_file = $opt_p;
   23  
   24 @@ -72,7 +72,7 @@
   25      else {
   26  	$field[0] =~ /^[IWQXE][0-9]$/ || &error("invalid first field");;
   27  	$type[$num] = substr($field[0], 0, 1);
   28 -	$argc = int(substr($field[0], 1, 1));
   29 +	$argc = substr($field[0], 1, 1);
   30      }
   31      $nargs[$num] = $argc;
   32      $field[1] =~ /^[a-zA-Z_][a-zA-Z0-9_]+$/ || &error("invalid tag");