Re^2: 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

Replies are listed 'Best First'.
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]

Replies are listed 'Best First'.

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]