Skip Menu |
 

This queue is for tickets about the String-Checker CPAN distribution.

Report information
The Basics
Id: 4508
Status: new
Priority: 0/
Queue: String-Checker

People
Owner: Nobody in particular
Requestors: voytovich_slava [...] mail.ru
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Maybe it's a bug in String::Checker
Download (untitled) / with headers
text/plain 1.4k
I have version 0.03 of String::Checker, Perl 5.8.0_7, FreeBSD 4.9. I have the script: Show quoted text
--- Begin --- #!/usr/bin/perl use String::Checker; my $echars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; my $schars = ' ~!@#$%^&*()_+|`1234567890-=\,./<>?"[]{}'; my $chars = $echars.$schars; print "$chars\n"; my $foo = "This is a test"; $ret = String::Checker::checkstring($foo, [['allow_chars' => $chars]]); foreach my $i (@{$ret}) { print "$i\n"; } --- End --- First symbol in the $schars is the blank. It returns on the screen:
--- Begin --- ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz ~!@#$%^&*()_+|`1234567890-=\,./<>?"[]{} allow_chars -- End --- But this must return on the screen:
--- Begin --- ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz ~!@#$%^&*()_+|`1234567890-=\,./<>?"[]{} -- End --- But if I run a script:
--- Begin --- #!/usr/bin/perl use String::Checker; my $echars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz '; my $schars = ' ~!@#$%^&*()_+|`1234567890-=\,./<>?"[]{}'; my $chars = $echars; print "$chars\n"; my $foo = "This is a test"; $ret = String::Checker::checkstring($foo, [['allow_chars' => $chars]]); foreach my $i (@{$ret}) { print "$i\n"; } --- End --- Last symbol in $echars is the blank. It is Ok. It returns on the screen:
--- Begin --- ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz ~!@#$%^&*()_+|`1234567890-=\,./<>?"[]{} -- End --- Maybe it is a bug. Or do I do something wrong? Good luck. Voytovich Viacheslav


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.