pkgs/tools/text/sgml/openjade/msggen.patch

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