| Subject: | Maybe it's a bug in String::Checker |
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