Skip Menu |
 
Update: The rt.cpan.org bug tracker service is no longer shutting down.

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

Report information
The Basics
Id: 19364
Status: open
Priority: 0/
Queue: IO-Prompt

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

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



Subject: warnings under Test::Harness
Download (untitled) / with headers
text/plain 398b
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:
Download (untitled) / with headers
text/plain 2.3k
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 is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

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