From 033a0b366dc784fd61bd3d53615a013416ec1a59 Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Mon, 12 Aug 2013 09:48:13 +0200
Subject: [PATCH] fix migration port (wrong quote)

---
 PVE/QemuMigrate.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/PVE/QemuMigrate.pm b/PVE/QemuMigrate.pm
index 0c0f3c83..d88180bf 100644
--- a/PVE/QemuMigrate.pm
+++ b/PVE/QemuMigrate.pm
@@ -76,10 +76,9 @@ sub finish_command_pipe {
 sub fork_tunnel {
     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,
-	       'qm', 'mtunnel' ];
+    my $cmd = [@{$self->{rem_ssh}}, @localtunnelinfo, 'qm', 'mtunnel' ];
 
     my $tunnel = $self->fork_command_pipe($cmd);