This bug is also crystal clear using the while_until example
(
http://search.cpan.org/src/DCONWAY/IO-Prompt-v0.99.4/examples/while_until.pl):
poletti@PolettiX:~/sviluppo/perl/IO-Prompt$ ./while_until.pl
Use of uninitialized value in pattern match (m//) at
/opt/perl/lib/site_perl/5.8.8/IO/Prompt.pm line 91.
first while digit: 990
You said '990'
Use of uninitialized value in pattern match (m//) at
/opt/perl/lib/site_perl/5.8.8/IO/Prompt.pm line 91.
first while digit: a
Use of uninitialized value in pattern match (m//) at
/opt/perl/lib/site_perl/5.8.8/IO/Prompt.pm line 91.
second until digit: abc
You said 'abc'
Use of uninitialized value in pattern match (m//) at
/opt/perl/lib/site_perl/5.8.8/IO/Prompt.pm line 91.
second until digit: 990
Use of uninitialized value in pattern match (m//) at
/opt/perl/lib/site_perl/5.8.8/IO/Prompt.pm line 91.
Use of uninitialized value in pattern match (m//) at
/opt/perl/lib/site_perl/5.8.8/IO/Prompt.pm line 91.
third while digit (not zero): 99
You said '99'
Use of uninitialized value in pattern match (m//) at
/opt/perl/lib/site_perl/5.8.8/IO/Prompt.pm line 91.
Use of uninitialized value in pattern match (m//) at
/opt/perl/lib/site_perl/5.8.8/IO/Prompt.pm line 91.
third while digit (not zero): 990
poletti@PolettiX:~/sviluppo/perl/IO-Prompt$ cat while_until.pl
#! /opt/perl/bin/perl -w
# The -while and -until flags control whether &prompt returns true on a
given
# input...
use IO::Prompt;
while (prompt "first while digit: ", -while => qr/\d/) {
print "You said '$_'\n";
}
while (prompt "second until digit: ", -until => qr/\d/) {
print "You said '$_'\n";
}
while (
prompt "third while digit (not zero): ",
-while => qr/\d/,
-until => qr/0/
)
{
print "You said '$_'\n";
} ## end while (prompt "third while digit (not zero): "...
poletti@PolettiX:~/sviluppo/perl/IO-Prompt$ perl -MIO::Prompt -e 'print
"$IO::Prompt::VERSION\n"'
v0.99.4
poletti@PolettiX:~/sviluppo/perl/IO-Prompt$
On Ven. 19 Mag. 2006 19:08:30, guest wrote:
Show quoted text> This script:
>
> use strict;
> use warnings;
> use IO::Prompt;
> while (prompt 'Enter: ', -until => qr/./) { }
>
> generates warnings when run under Test::Harness:
>
> % make test
> PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e"
> "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
> t/00....Use of uninitialized value in pattern match (m//) at
> /usr/lib/perl5/site_perl/5.8.8/IO/Prompt.pm line 91.
> Enter:
