fix migration port (wrong quote)

This commit is contained in:
Dietmar Maurer 2013-08-12 09:48:13 +02:00
parent 760fb3c842
commit 033a0b366d

View File

@ -76,10 +76,9 @@ sub finish_command_pipe {
sub fork_tunnel { sub fork_tunnel {
my ($self, $nodeip, $lport, $rport) = @_; my ($self, $nodeip, $lport, $rport) = @_;
my @localtunnelinfo = (defined $lport) ? qw(-L $lport:localhost:$rport) : (); my @localtunnelinfo = $lport ? ('-L' , "$lport:localhost:$rport" ) : ();
my $cmd = [@{$self->{rem_ssh}}, @localtunnelinfo, my $cmd = [@{$self->{rem_ssh}}, @localtunnelinfo, 'qm', 'mtunnel' ];
'qm', 'mtunnel' ];
my $tunnel = $self->fork_command_pipe($cmd); my $tunnel = $self->fork_command_pipe($cmd);