# --- T2-COPYRIGHT-BEGIN --- # t2/package/*/openjade/hotfix-getopts.patch # Copyright (C) 2026 The T2 SDE Project # SPDX-License-Identifier: GPL-2.0 or patched project license # --- T2-COPYRIGHT-END --- --- openjade-1.3.2/msggen.pl.vanilla 2026-05-16 17:04:16.095161014 +0300 +++ openjade-1.3.2/msggen.pl 2026-05-16 17:09:26.247255619 +0300 @@ -4,6 +4,7 @@ # See the file COPYING for copying permission. use POSIX; +use Getopt::Std; # Package and version. $package = 'openjade'; @@ -18,8 +19,7 @@ undef $opt_l; undef $opt_p; undef $opt_t; -do 'getopts.pl'; -&Getopts('l:p:t:'); +getopts('l:p:t:'); $module = $opt_l; $pot_file = $opt_p;