1--- iconv_builtin.orig	2000-11-20 16:07:41.000000000 -0600
2+++ iconv_builtin	2013-05-24 10:19:34.765696802 -0600
3@@ -31,9 +31,9 @@
4 #       iconv (Charset Conversion Library) v2.0
5 #
6
7-require 'getopts.pl';
8+use Getopt::Std;
9
10-&Getopts('mno:s:');
11+getopts('mno:s:');
12
13 if ($opt_o) {
14         open(STDOUT, ">$opt_o");
15--- ccs/iconv_mktbl.orig	2000-11-18 15:44:27.000000000 -0600
16+++ ccs/iconv_mktbl	2013-05-24 10:43:06.598689960 -0600
17@@ -31,7 +31,7 @@
18 # 	iconv (Charset Conversion Library) v2.0
19 #
20
21-require 'getopts.pl';
22+use Getopt::Std;
23 use integer;
24
25 sub pack_hex {
26@@ -144,7 +144,7 @@
27 $opt_p = '0x';
28 $opt_u = 1;
29
30-&Getopts('aCc:Mm:o:p:u:');
31+getopts('aCc:Mm:o:p:u:');
32 #         ||| || | | +- u N:	field number for Unicode character codes
33 #         ||| || | +--- p str:	prefix
34 #         ||| || +----- o file:	output file name
35