patches/openjade/openjade-1.3.2-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");