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();
$s = "";
$command = $s2 . "\necho MAGIC\n";
$command = $s2 . "\necho -e \"\\v\"\n";
print $in $command;
inner_while: while (true) {
$line = <$out>;
if ($line eq "MAGIC\n") {
if ($line =~ s/\cK//) {
STDOUT->flush();
last inner_while;
}