http://www.perlmonks.org?node_id=556609


in reply to Perl Worst Practices

the following errors: 
Can't call method "Tgoto" on an undefined value at 556329.pl line 50.
END failed--call queue aborted.
Can't call method "Tgoto" on an undefined value at 556329.pl line 27.
END failed--call queue aborted.

[download]
can be fixed by adding: 
use Term::Cap;
our $OFS=Tgetent Term::Cap;

[download]
to the start of the file.
which makes it sort of work, but i might be missing something....

alex

Replies are listed 'Best First'.
Re^2: Perl Worst Practices
by Hue-Bond (Priest) on Jun 21, 2006 at 10:36 UTC

    Of course the program does Tgetent at the appropriate moment. It's that some systems do weird things when $/ is undef:

    use Term::Cap;         
$/=undef;              
my $t=Term::Cap->Tgetent ({TERM=>undef, OSPEED=>38400});
__END__
failed termcap lookup on xterm at - line 3

    [download]

    So I had to stick a local $/ = "\n" there as a quick fix.

    --
    David Serrano

[reply]
[d/l]

In Section Obfuscated Code