equal
deleted
inserted
replaced
89 my %FILE; |
89 my %FILE; |
90 |
90 |
91 MAIN: { |
91 MAIN: { |
92 |
92 |
93 GetOptions( |
93 GetOptions( |
94 "addr=s" => \$opt_addr, |
94 "address=s" => \$opt_addr, |
95 "auth:s" => sub { $opt_auth = $_[1] eq '' ? $ME : $_[1] }, |
95 "auth:s" => sub { $opt_auth = $_[1] eq '' ? $ME : $_[1] }, |
96 "noauth" => sub { undef $opt_auth }, |
96 "noauth" => sub { undef $opt_auth }, |
97 "port=i" => \$opt_port, |
97 "port=i" => \$opt_port, |
98 "lines=i" => \$opt_lines, |
98 "lines=i" => \$opt_lines, |
99 "daemon!" => \$opt_daemon, |
99 "daemon!" => \$opt_daemon, |