From f4fde4d3760b0b7bfa8537be751fad3910fa39ad Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Thu, 18 Apr 2013 08:26:23 +0200
Subject: [PATCH] do not delete unmatched content from $$input

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

diff --git a/PVE/QMPClient.pm b/PVE/QMPClient.pm
index 6782c377..45fcba4b 100755
--- a/PVE/QMPClient.pm
+++ b/PVE/QMPClient.pm
@@ -259,12 +259,9 @@ sub queue_execute {
 sub mux_input {
     my ($self, $mux, $fh, $input) = @_;
 
-    return if $$input !~ m/}\r\n$/;
+    return if $$input !~ s/^(.*})\r\n(.*)$/$2/so;
 
-    my $raw = $$input;
-
-    # Remove the input from the input buffer.
-    $$input = '';
+    my $raw = $1;
 
     my $vmid = $self->{fhs_lookup}->{$fh};
     if (!$vmid) {