Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!uunet!munnari.oz.au!frankland-river!pem
From: pem@frankland-river.aaii.oz.au (Paul E. Maisano)
Newsgroups: comp.lang.perl
Subject: Bug in termcap.pl
Message-ID: <1170@frankland-river.aaii.oz.au>
Date: 27 Feb 90 03:22:13 GMT
Organization: Australian AI Institute
Lines: 22

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