Merge from 5.3
pending merges: Alexander Barkov 2013-09-16 backport from 10.0
This commit is contained in:
commit
940f554207
@ -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;
|
||||
}
|
||||
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user