Re^2: Weird Term::Prompt behaviour


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re^2: Weird Term::Prompt behaviour

by gargle (Hermit)

on Sep 18, 2012 at 12:45 UTC ( #994283=note: print w/ replies, xml )

Need Help??

in reply to Re: Weird Term::Prompt behaviour
in thread Weird Term::Prompt behaviour

Sorry, I forgot to mention that I did try $|=1 already. It doesn't work!

[gargle@vlds204 reporting]$ cat test.pl 
#!/usr/bin/perl

use Modern::Perl;
use Term::Prompt;

my $mypass = prompt( 'x', "password:", '', '' );

$|=1;

say "alfa";
say "beta";

[gargle@vlds204 reporting]$ ./test.pl | tee test.txt 
x
password: alfabeta[gargle@vlds204 reporting]$ ./test.pl
password: x
alfa
beta
[gargle@vlds204 reporting]$ 

[download]

I'm starting to think my perl install is messed up. Are there any unit tests I can run?

--
if ( 1 ) { $postman->ring() for (1..2); }

Comment on Re^2: Weird Term::Prompt behaviour
Download Code

Re^3: Weird Term::Prompt behaviour
by Anonymous Monk on Sep 20, 2012 at 07:34 UTC

Sorry, I forgot to mention that I did try $|=1 already. It doesn't work!

Doesn't work how? What is it you're expecting to happen that didn't happen?

I'm starting to think my perl install is messed up.

I doubt your install is messed up. You could try export TERM=dumb test.pl

Are there any unit tests I can run?

Sure, but they're not usually installed. You could verify your install with perlivp, but I doubt that'll help with this problem.

[reply]
[d/l]

In Section Seekers of Perl Wisdom