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