Re: Weird Term::Prompt behaviour

Replies are listed 'Best First'.
Re^2: Weird Term::Prompt behaviour by gargle (Chaplain) on Sep 18, 2012 at 12:45 UTC
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); }	[reply] [d/l]
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]
Re^2: Weird Term::Prompt behaviour by gargle (Chaplain) on Sep 20, 2012 at 12:01 UTC
What I find weird is that the '\n' are gone when I pipe or use redirection. So come these two runs don't give the same output, that's what I would like to know : `[gargle@vlds204 reporting]$ ./test.pl password: x alfa beta` [download] `[gargle@vlds204 reporting]$ ./test.pl \| tee test.txt x password: alfabeta[gargle@vlds204 reporting]$ [gargle@vlds204 reporting]$` [download] -- if ( 1 ) { $postman->ring() for (1..2); }	[reply] [d/l] [select]