This queue is for tickets about the IO-Prompt CPAN distribution.

Report information
The Basics
Id:
19364
Status:
open
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
mark [...] immermail.com
Cc:
AdminCc:

BugTracker
Severity:
Normal
Broken in:
v0.99.4
Fixed in:
(no value)



Subject: warnings under Test::Harness
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:
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:


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.