| Subject: | background install |
Installing Term::ReadKey on background, test blocks when:
- setting terminal attributes, SetControlChars(%origchars, IN);
or at
- END { ReadMode 0, IN; } # Just if something goes weird
Attached there is the rudimentary patch I applied to solve it.
Yours,
Ignasi Roca.
> diff -bur test.pl.orig test.pl
--- test.pl.orig Fri Apr 16 13:19:16 2004
+++ test.pl Fri Apr 16 13:17:56 2004
@@ -187,7 +187,7 @@
eval
{
- SetControlChars(%origchars, IN);
+ SetControlChars(%origchars, IN) if $interactive;
print "ok 8\n";
};
@@ -196,7 +196,7 @@
#SetControlChars("FOOFOO"=>"Q");
#SetControlChars("INTERRUPT"=>"\x5");
-END { ReadMode 0, IN; } # Just if something goes weird
+END { ReadMode 0, IN if $interactive; } # Just if something goes weird
exit(0) unless $interactive;