Merge from 5.3

pending merges:
  Alexander Barkov 2013-09-16 backport from 10.0
This commit is contained in:
Alexander Barkov 2013-09-16 16:05:53 +04:00
commit 940f554207

View File

@ -100,7 +100,7 @@ sub write_test {
my $serialized= Storable::freeze($test);
$serialized =~ s/([\x0d\x0a\\])/sprintf("\\%02x", ord($1))/eg;
print $sock $header, "\n", $serialized, "\n";
send $sock,$header. "\n". $serialized. "\n", 0;
}