/usr/local/share/perl/5.18.2/Lingua/Stem/Snowball/Da.pm
Line: 136
# return $word unless $lslen >= 3;
return $word unless ($lslen//0) >= 3; #prb lslen undefined
Lines: 222-223
# $lslen = length substr($word, 0, 3);
# $rs = substr($word, 3);
my $l = length($word); #prb length of word
$rs = substr($word, $lslen = $l < 3 ? $l : 3); #prb prefix of up to 3 chars
/usr/local/share/perl/5.18.2/Text/German/Endung.pm
Line: 53
# and ($ENDUNG{$endung}->[1] & $class)) {
and ($ENDUNG{$endung}->[1])//0 & $class) { #prb array element undefined
=pod
I propose the above fixes because otherwise Perl complains about undefined
variables and invalid string lengths when I run a comparison of 5000 files and
these error messages make it difficult to have confidence in the results. I
am not sure that these improvements are correct, but they did reduce the
number of error messages dramatically.
=cut
| Subject: | fixes.pl |
/usr/local/share/perl/5.18.2/Lingua/Stem/Snowball/Da.pm
Line: 136
# return $word unless $lslen >= 3;
return $word unless ($lslen//0) >= 3; #prb lslen undefined
Lines: 222-223
# $lslen = length substr($word, 0, 3);
# $rs = substr($word, 3);
my $l = length($word); #prb length of word
$rs = substr($word, $lslen = $l < 3 ? $l : 3); #prb prefix of up to 3 chars
/usr/local/share/perl/5.18.2/Text/German/Endung.pm
Line: 53
# and ($ENDUNG{$endung}->[1] & $class)) {
and ($ENDUNG{$endung}->[1])//0 & $class) { #prb array element undefined
=pod
I propose the above fixes because otherwise Perl complains about undefined
variables and invalid string lengths when I run a comparison of 5000 files and
these error messages make it difficult to have confidence in the results. I
am not sure that these improvements are correct, but they did reduce the
number of error messages dramatically.
=cut