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);
|
my $serialized= Storable::freeze($test);
|
||||||
$serialized =~ s/([\x0d\x0a\\])/sprintf("\\%02x", ord($1))/eg;
|
$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