do not delete unmatched content from $$input

This commit is contained in:
Dietmar Maurer 2013-04-18 08:26:23 +02:00
parent 194d171e6c
commit f4fde4d376

View File

@ -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) {