Merge pull request #59 from mundifex/stash-deadlock-fix

Fix deadlock in stash levels
This commit is contained in:
blinry 2021-04-12 16:48:31 +02:00 committed by GitHub
commit 1606e0565e
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -34,12 +34,12 @@ while(true) {
STDOUT->flush(); STDOUT->flush();
$s = ""; $s = "";
$command = $s2 . "\necho MAGIC\n"; $command = $s2 . "\necho -e \"\\v\"\n";
print $in $command; print $in $command;
inner_while: while (true) { inner_while: while (true) {
$line = <$out>; $line = <$out>;
if ($line eq "MAGIC\n") { if ($line =~ s/\cK//) {
STDOUT->flush(); STDOUT->flush();
last inner_while; last inner_while;
} }