Backupppert/oh-my-git
1
0
Fork 0
mirror of https://github.com/git-learning-game/oh-my-git.git synced 2025-05-01 20:42:01 +02:00
Code Issues Projects Releases Packages Wiki Activity

Fix TCPServer node, by reading -1 bytes

Browse source
This commit is contained in:
Sebastian Morr 2020-09-22 18:53:50 +02:00
parent f0f50bc9fb
commit 2a890c7f8a
3 changed files with 8 additions and 7 deletions
scripts
net-test

3
scripts/net-test
View file

@ -9,7 +9,8 @@ $socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1",
$s = "Hey äöü!";
$socket->send(chr(length($s)));
my $send_length = pack("L", length($s));
$socket->send($send_length);
$socket->send($s);
while(true) {