pem@frankland-river.aaii.oz.au (Paul E. Maisano) (02/27/90)
Can I sneak this into patch 9 before it comes out :-)
Control characters don't seem to be translated properly.
Ie. if "cl=^L:", $TC{'cl'} contained ascii 0 rather than ascii 12.
This was my fix, but there are probably better:
[The line changes $_ from a representation of a control character to the
actual character. ie. "^L" (2 chars) to "\012" (1 char)]
% diff termcap.pl{.orig,}
73c73
< s/\^(.)/pack('c',$1 & 031)/eg;
---
> s/\^(.)/pack('c',ord($1) ^ 0100)/eg;
------------------
Paul E. Maisano
Australian Artificial Intelligence Institute
1 Grattan St. Carlton, Vic. 3053, Australia
Ph: +613 663-7922 Fax: +613 663-7937
Email: pem@aaii.oz.au