On Thu, Mar 03, 2005 at 04:34:56PM +0100, Danilo Piazzalunga wrote:
Er... I can't make it work, neither with po4a nor with a small
test script
(see the attached 'wraptest' file).
It looks like that the COLUMNS env variable isn't passed to perl (see the
attached 'columnstest' file), unless it is explicitly set from the shell
(i.e. COLUMNS=$COLUMNS perl ./columnstest).
That's right, COLUMNS is actually a bash variable, and is
not normally part of the environment. You can get it from
the output of resize(1) though:
#! /usr/bin/perl
$columns = (`resize` =~ /COLUMNS=(\d+)/)[0];
print $columns;
I'll let it up to who will maintain that code to write it in
a more palatable way :-)
Y.