author | Norm Jacobs <Norm.Jacobs@Oracle.COM> |
Thu, 12 Jan 2017 14:51:27 -0800 | |
changeset 7571 | 9e9a7ce5d204 |
parent 5797 | 432ac76de3b0 |
permissions | -rw-r--r-- |
5797
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
1 |
# getopts.pl is deprecated from perl. |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
2 |
# Offer this upstream. |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
3 |
|
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
4 |
|
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
5 |
--- openjade-1.3.2/msggen.pl_orig 2002-10-20 14:47:23.000000000 -0700 |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
6 |
+++ openjade-1.3.2/msggen.pl 2016-04-01 14:48:13.950400177 -0700 |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
7 |
@@ -18,8 +18,8 @@ |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
8 |
undef $opt_l; |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
9 |
undef $opt_p; |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
10 |
undef $opt_t; |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
11 |
-do 'getopts.pl'; |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
12 |
-&Getopts('l:p:t:'); |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
13 |
+use Getopt::Std; |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
14 |
+getopts('l:p:t:'); |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
15 |
$module = $opt_l; |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
16 |
$pot_file = $opt_p; |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
17 |