ARG: for (;;) {
last ARG unless @$args;
- my $arg = shift $args;
+ my $arg = shift @$args;
if ($arg eq "+") { last ARG; }
elsif ($arg =~ /^\+/) {
$server = substr $arg, 1;
for my $s (sort keys %S) {
inform "Server `$s' parameters...";
- for my $p (sort keys $S{$s}) { inform_param $p, $S{$s}{$p}; }
+ for my $p (sort keys %{$S{$s}}) { inform_param $p, $S{$s}{$p}; }
}
}
$s->{"_proxy_sockdir"} = undef;
$s->{"_proxy_server"} = defined $s->{"via"} ?
$s->{"sshbind"} : $s->{"remote"};
+ $s->{"_proxy_server"} =~ s/:119$//;
+ $s->{"_proxy_server"} =~ s/^\[(.*)\]$/$1/;
$s->{"_sshkid"} = undef;
$s->{"_ssh_master"} = undef;
}