| Subject: | amatch() reports true bue shouldn't |
Here's a script to reproduce the problem. I've never used String::Approx before, so
I might have it backwards, but I don't think it should match in either case.
$ cat bug
#!/usr/bin/perl -lw
use blib;
use String::Approx 'amatch';
print "Perl=$] String::Approx=$String::Approx::VERSION";
for my $len (29, 30) {
$pad = "x" x $len;
print "len=$len match=",
amatch("$pad ab", [1], "$pad 12")
? 1
: 0;
}
$ ./bug
Perl=5.008 String::Approx=3.20
len=29 match=0
len=30 match=1
$ _